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PREFACE 


*s\  _ 

'  The  Georgia  Institute  of  Technology  Engineering  Experiment  Station  i&fE&S)  is 
working  with  the  U.S.  Army  Engineer  Topographic  Laboratories  (ETL)  to  combine  the 
existing  capabilities  of  the  FEED  system  with  the  elevation^lata  algorithms  and  en¬ 
hancements  from  the  Digital  Terrain  Analysis  Station  j^BTASfto  form  a  more  generic, 
more  machine-independent  software  system.  Based  on  16-bit  minicomputer  technology, 
this  system  will  provide  the  Field  Army  with  a  capability  for  exploiting  digital  terrain 
elevation  data  and  associated  products  by  the  first  quarter  of  FY8S.  A  follow-on  cap¬ 
ability  in  digital  terrain  elevation  data  products  will  be  incorporated  as  part  of  the  Terrain 
Analyst  Work  Station  jdtAW&f?'  which  is  also  being  developed  by  ETL  and  will  take 
advantage  of  32-bit  minicomputer  technology  and  the  concept  of  device-independent 
graphics.^ 

'^This  report  documents  the  existing  FEED  software,  which  is  the  starting  point  for 
the  development  work  referred  to  above.  The  FEED  software  is  currently  available  for 
the  Data  General  family  of  minicomputers  using  Tektronix  PLOTIO  graphics 
commands. 

This  report  was  generated  under  Contract  DAAK7Q-82-K-0204  for  the  U.S. 
Army  Engineer  Topographic  Laboratories,  Fort  Belvoir,  Virginia  22060,  by  the  Georgia 
Institute  of  Technology  Engineering  Experiment  Station,  Atlanta,  Georgia  30332,  and 
submitted  as  A-3339.  The  Contracting  Officer’s  Representative  was  Mr.  William  Veigel. 
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I.  INTRODUCTION 


The  U.S.  Army  Engineer  Topographic  Laboratories  (ETL)  have  developed 
the  Field  Exploitation  of  Elevation  Data  (FEED)  system  to  generate  terrain 
analysis  graphics  based  on  1 ine-of-slght  profile  data.  The  system  has  been 
developed  over  a  period  of  several  years  by  a  combination  of  in-house  effort 
and  contractor  support.  FEED  has  thus  outlived  the  tenure  of  many  software 
professionals.  Although  a  user's  manual  exists  along  with  explanation  of  the 
underlying  engineering  theory,  a  sufficient  level  of  programmer  documentation 
for  the  system  has  never  been  available. 

FEED  is  a  complex  software  system  consisting  of  over  145  programs, 
subroutines,  and  functions,  with  the  extensive  use  of  overlays  and 
program  swaps.  The  ability  of  programmers  to  maintain,  trouble-shoot,  or 
enhance  such  software  is  absolutely  dependent  on  the  level  of  program 
documentation  and  software  organization. 

In  the  course  of  this  project,  programmer  documentation  for  the  FEED 
software  has  been  produced.  The  purpose  of  each  program  has  been  identified, 
the  parameters  and  COMMON  variables  have  been  described,  the  calling 
sequences  and  logic  flow  have  been  charted,  and  the  structure  and  use  of  the 
disk  data  files  have  been  recorded.  In  addition,  the  file  organization  on 
the  FEED  system  disk  pack  has  been  improved  so  that  the  software  source 
code  found  on  the  disk  exactly  matches  current  listings  and  documentation. 
Procedures  for  backing  up  the  FEED  disk  to  tape  have  been  outlined. 

At  least  one  copy  of  this  report  is  to  be  maintained  in  the  form  of  a 
loose-leaf  3-ring  binder.  That  document  should  continue  to  be  updated  and 
corrected  each  time  any  programmer  corrects,  updates,  enhances,  or  in  any 
other  way  changes  any  of  the  FEED  software.  Only  in  this  manner  will  it  be 
assured  that  the  documentation  always  stays  current  and  useful  for  maintaining 
this  complex  software  system. 
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IA.  CONTENTS  OF  THIS  REPORT 


Users  of  this  report  will  reference  three  general  subjects: 

prog ram/ subroutine  descriptions,  disk  file  structure  and  usage,  and 

explanations  of  the  common  data  areas.  The  contents  of  these  sections 

of  the  manual  include  the  following: 

-Section  II. A:  A  list  of  the  executable  programs  and  their  functions, 
with  a  chart  showing  the  program  swapping  sequence. 

-Section  II. B:  An  alphabetical  list  of  all  the  subroutines  in  the  FEED 
system,  a  brief  description  of  each  routine's  function, 
the  executable  program  in  which  this  routine  can  be  found, 
the  corresponding  diagram  number,  and  a  cross-reference 
as  to  which  other  routines  use  this  subroutine  as  well  as 
which  other  routines  this  subroutine  uses. 

-Section  II. C:  An  expanded  description  of  each  routine,  giving  more  detailed 
information  on  how  the  routine  is  used  ahd  explaining  each 
parameter  passed  to  and  from  the  routine. 

-Section  II. D:  Flow  diagrams  which  chart  the  structure  of  the  software 
system. 

-Section  III. A:  An  explanation  of  the  disk  file  naming  conventions,  and  a 
listing  of  which  routines  open,  close,  read,  or  write  each 
file. 

-Section  III.B:  A  detailed  description  of  the  structure  of  each  disk  file. 

-Section  IV. A:  A  table  showing  which  routines  contain  each  common  data 

area. 

-Section  IV. B:  A  description  of  how  each  common  data  area  is  used,  with 

an  explanation  of  the  contents  of  each  variable  in  common. 

-Section  IV. C:  A  table  indicating  the  initial  values  of  certain  common 

variables  which  are  set  by  different  routines. 

-Section  V.  An  explanation  of  how  the  source  files  containlg  these 
routines  are  organized  on  the  FEED  disk  packs. 

Recommendations  for  disk  and  tape  backup  of  the  software. 


-Section  VI. 


IB.  GLOSSARY 
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The  following  programming  terms  are  used  throughout  this  report. 

While  it  is  expected  that  the  primary  users  of  this  report  will  be 

computer  programmers,  to  whom  these  terms  are  no  doubt  familiar  ones, 

other  readers  may  find  a  brief  explanation  useful. 

EXECUTABLE  PROGRAMS  -  These  files,  which  are  given  the  .$V  extension 

by  the  Relocatable  Loader  (RLDR),  are  the 
programs  in  their  final  form  ready  for 
execution.  The  RLDR  takes  the  compiled 
relocatable  files  (.RB)  and  builds  the 
executable  progarm.  If  the  program  is  built 
using  overlay  segments,  a  corresponding  .OL 
file  is  created. 

FILE  -  Data,  text,  source  code,  etc.  stored  on  the 

disk  and  assigned  a  unique  name.  File  name 
extensions  are  used  to  identify  specific  types 
of  files  (i.e.  .SV,  .DB,  .PF,  etc). 

LOAD  MACRO  -  An  ASCII  file  created  with  the  .MC  extension; 

contains  the  instructions  to  RLDR  on  which 
routines  to  include  in  each  executable  program. 

LOGICAL  UNIT  NUMBER  -  An  identifier  assigned  by  the  programmer  inside 

the  Fortran  programs  for  each  disk  file. 
Different  executable  programs  may  attach 
different  logical  unit  numbers  to  the  same 
file. 

MAIN  PROGRAM  -  Each  executable  consists  of  a  main  program  and 

one  or  more  subroutines  and  libraries.  The 
main  program  initiates  execution,  performs 
processing  as  required,  and  invokes  the 
appropriate  subroutines. 


OVERLAY 


PARAMETERS 


RELOCATABLE  FILES  - 


RLDR 


SOURCE  FILES  - 


When  the  size  of  an  executable  program  exceeds 
the  program  memory  space,  the  technique  of 
overlaying  may  be  used  to  reduce  program  size. 
The  RLDR  is  instructed  to  load  the  program  in 
such  a  manner  that  different  program  modules 
will  share  the  same  memory  space;  i.e.  they 
execute  at  different  times. 

Variables  passed  to  and  ^  ,n  i'ortran 
subroutines.  There  has  .  'e  a  one-to-one 
correspondence  between  t  calling  routine  and 
the  subroutine  as  to  the  •<*  ar  of  parameters 
and  their  data  type. 

These  files  (.RB)  are  created  when  the  Fortran 
compiler  complies  the  source  code.  The  various 
.RB  files  are  input  to  RLDR  to  build  the 
executable  programs. 

Relocatable  Loader  utility  program  provided  by 
ROLM;  used  to  link  (i.e.  build)  the  relocatable 
files  into  executable  programs. 

These  are  text  files  entered  directly  by  the 
programmer,  which  contain  the  Fortran  commands 
and  statements.  These  files  are  maintained 
using  the  text  editor  and  are  the  files 
submitted  to  the  compiler. 


r 


SUBROUTINE 


SWAP  - 


Program  modules  which  perform  a  specific  task  for 
one  or  more  calling  routines.  Rather  than 
duplicating  source  code  in  several  places  throughout 
a  program,  the  code  can  be  placed  in  one  surboutine 
and  then  loaded  into  the  appropriate  executable 
programs.  A  FUNCTION  is  a  special  purpose 
subroutine,  which  is  invoked  without  the  use  the 
Fortran  CALL  statement. 

Swapping  is  a  technique  for  having  one  executable 
program  invoke  another  executable  program.  When  the 
second  program  is  finished  executing,  it  can  swap 
back  to  the  original  program.  In  such  a  way, 
program  execution,  which  otherwise  would  be  too 
large  to  fit  in  available  memory,  can  be 
accomplished  by  sequentially  sharing  the  program 
space. 
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rr.  PROGRAM  AND  SUBROUTINE  DESCRIPTIONS 
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PRIMARY  PROGRAMS 


CLOAO  “X 

LLOAO  ) 

RLOAD  4— *RTM  V  4-*PROFL 

PLOAD  4—*  PERSP  FTMAIN  C  4-»PLTRN  4-»  VPL2  <-»SORT 

TLOAD  «-■»  THREED  4-»  FT  MAI  N  J 

=  Program  Swap 

STAND  ALONE  PROGRAMS 


MAINFT 
OOP ARM 


FUNCTION 


CLOAO 

DOPARM 

LLOAD 

FTMAIN 

PROFL 

MAINFT 

PLOAO 

RLOAD 

SORT 

TLOAD 

VPL2 


Produces  contour  plots. 

Prints  out  plot  parameters  stored  in  plot  file. 

Produce  line  of  sight  plots. 

Feature  plotting  program  swapped  to  for  perspective  and 
three  dimensional  plots. 

Selects  the  terrain  profiles  for  each  of  the  five  primary 
FEED  programs. 

Creates,  modifies,  deletes  feature  data  files. 

Produces  perspective  plots. 

Produces  radar  terrain  masked  plots. 

Versatec  supplied  program  -  plots  the  output  produced  by 
VPL2. 

Produces  three  dimensional  plots. 

Makes  all  the  plotting  calls  for  Versatec  plotting. 
Swapped  to  by  PLTRN. 
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PERSP 

PLTRN 

RTM 

THREED 


Swapped  to  by  PLOAO  -  does  the  actual  perspective 
plotting. 

Produces  the  plots  for  each  of  the  five  primary  FEED 
programs. 

Swapped  to  by  RLOAD  -  does  the  actual  RTM  plotting. 
Swapped  to  by  TLOAD  -  does  actual  3-D  plotting. 
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I  IB.  BRIEF  PROGRAM  DESCRIPTIONS 


2 


FILE 


FUNCTION 


EXECUTABLE 
PROGRAM! S) 


DIAGRAM 


ADDREC 


AGAIN 


ALT 


NALT 


CALCPR 


add  feature  data  records  to  MAINFT  13 

specified  file;  change 

location  Info,  of  records  In  file. 

Calls:  DMSSEC.ERRFT.MGCORD, 

MOVEAA .ONEPNT ,PRI NR 
Called  by:  CHANGE.  MAINFT 


asks  user  If  he  wants  another  CLOAD  1 

plot  of  the  same  type.  LLOAD  2 

Calls:  nothing  PLOAD  3 

Called  by:  CMAIN.LMAIN.  RLOAD  4 

PMAIN.RMAIN.TMAIN  TLOAO  S 

finds  elevation  of  given  PROFL  6 

location  specified  by  lat. 
and  long.  Uses  polynomial 
database. 

Calls:  IUNPCK .MOVEAA .MOVEKA 
Called  by:  PTS.PTSSEC 


uses  grldded  database.  PROFL  6 

Calls:  nothing 
Called  by:  PTS.PTSSEC 

calc,  profile  and  point  numbers  FTMAIN  11 

for  a  location  In  a  perspective 

plot. 

Calls:  nothing 
Called  by:  PRSBD.PRSFT 
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FILE 

FUNCTION 

EXECUTABLE 

PROGRAM ( S) 

DIAGRAM 

CALCTH 

calculates  profile  and  point 
numbers  for  a  location  In  a 

3*0  plot. 

Calls:  nothing 

Called  by:  THRBD.THRFT 

FTMAIN 

11 

CHANGE 

change  record  code,  description 

or  location  Info.  In  feature  data 

record. 

Calls:  ADDREC.ERRFT.PR1NR 

Called  by:  MAINFT 

MAINFT 

13 

CHAIN 

Main  program  for  contour  maps. 

Calls:  AGAIN, COPSM.CPLOT, 

ORIVFT.I NCON .MOVE AA .NPAGE , PLOT . 
PLTSV.PMPRT ,PRCEED,HPRFRT,PSWAP, 
SETUP, TITLE 

Called  by:  nothing 

CLOAD 

1 

CNVTR 

driver  routine  for  conversion 

routines  LL2UTN  and  UTM2LL. 

Calls:  LL2UTM.UTM2LL 

Called  by:  PTMN 

PROFL 

6 

CON  . 

plots  contour  levels  between  two 
profiles. 

Calls:  PLOT.SYieOL 

Called  by:  CPLOT.RPLOT 

CLOAD 

RTM 

1 

8 
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EXECUTABLE 

FILE 

FUNCTION 

PROGRAM! S) 

DIAGRAM 

VCON 

version  of  CON  used  by  perspective 

THREEO 

9 

end  3-0  plots 

Cells:  PLOT, SYMBOL 

Celled  by:  PPLOT.RPLOT 

PERSP 

7 

CONPLT 

Inltlel  plotting  for  contour  plots; 
scele  fectors,  plot  parameters, 

title  etc. 

Cells:  CP ARSM ,NPAGE .NUMBER , PLOT , 

SYMBOL 

Celled  by:  CPLOT 

CLOAD 

1 

CONTBO 

plots  boundery  type  feature 
data  on  contour  nap  output. 

Calls:  MOVEAA, PLOT, SYMBOL 

Called  by:  PLBPFT 

CLOAD 

12 

CONTFT 

Plots  single  point  feature  record 
on  contour  plot. 

Cells:  SPSYM 

Celled  by:  PLSPFT 

CLOAD 

12 

COPSH 

Puts  coamand  In  plot  file  for 

CLOAD 

1 

Tektronix  hard  copy. 

LLOAD 

2 

Calls:  PLOTB 

PERSP 

7 

Celled  by:  CMAIN.LOSPLT, 

RTM 

8 

PERSP.RTM.THREED 

THREED 

9 

COPY 

sends  hard  copy  request  to 

Tektronix. 

Calls:  Tektronix  routines 

Celled  by:  PL2 

PLTRN 

16,10 
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EXECUTABLE 


FILE 

FUNCTION 

PROGRAM(S) 

DIAGRAM 

CPARSM 

stores  scaled  contour  plot 
parameters  In  plot  file. 

Calls:  PLOTB 

Called  by:  CONPLT 

CLOAD 

1 

CPLOT 

does  plotting  for  contour  map 

prog. 

Calls:  CON , CONPLT ,M0 VEAA .MOVEKA, PRFRD 
Called  by:  CHAIN 

CLOAD 

1 

DASH 

plots  dashed  line  to  a  point  xz,yz 
with  NUMOPI  dashes  per  Inch. 

Calls:  PLOT 

Called  by:  PL2 

PLTRN 

10 

DHSSEC 

converts  lat.  or  long.  In  deg., 

CLOAD 

1 

min.,  sec.,  dir.,  to  signed 

LLOAD 

2 

seconds. 

MAINFT 

13 

Calls:  nothing 

PLOAD 

3 

Called  by:  AOOREC.INCON, 

RLOAD 

4 

I NLOS , I NPRS , I NRTM , I NTHRD 

TLOAD 

5 

OOP ARM 

lists  out  plot  file  parameters. 

Uses  .PM  file. 

Calls:  PLOTPM 

Called  by:  nothing 

DOPARM 

none 

DRFTPR 

driver  to  plot  feature  data 

FTMAIN 

11 

on  perspective  plots. 

Calls:  FT0PEN.LL2UTM.PRSBD. 

PRSFT.UTM2LL 

Called  by:  FTMAIN 
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FILE 


function 


EXECUTABLE 
PROGRAM! S) 


ORFTTH 


ORIVFT 


OSNSM 


ERRFT 


ERTOPT 


driver  to  plot  feature  data 
on  3-0  plots. 

Calls:  FTOPEN ,LL2UTM, TMRBD . 

THRFT.UTM2LL 

Called  by:  FTNAIN 

driver  routine  for  feature 
data  plots  for  contour  and 
radar  terrain  mask. 

Calls:  PLBPFT.PLSPFT.RDHDFT. 
SCALFT 

Called  by:  CHAIN, RTN 

scores  parameters  needed  to 
plot  dashed  lines  for  line  of 
sight. 

Calls:  PLOTB 
Called  by:  LOSPLT 


FTMAIN 


CLOAD 


LLOAD 


reports  error  code  for  MAINFT. 
Calls:  nothing 

Called  by:  ADDREC, CHANGE .MAINFT, 
PRINFT.SRCHFI 


MAINFT 


reads,  validates,  stores  In 
comaon  block  the  Input  for 
elevation  correction 
option. 

Calls:  nothing 

Called  by:  INLOS.INPRS, 

INRTM.INTHRO 


LLOAD 

PLOAD 

RLOAD 

TLOAD 


EXECUTABLE 

FILE 

FUNCTION 

PROGRAM! S) 

DIAGRAM 

ERTPLT 

writes  the  eerth  correction  option 

LLOAO 

2 

on  a  plot. 

Calls:  SYMBOL 

Called  by:  LOSPLT.RTMPLT 

RTM 

8 

ERTPRT 

prints  earth  correction  option 

LLOAO 

2 

stored  In  common  block. 

PLOAD 

3 

Calls:  nothing 

RLOAD 

4 

Called  by:  INLOS.INPRS, 

INRTM.INTHRD 

TLOAD 

5 

FTMAIN 

driver  for  the  feature  plotting 

FTMAIN 

11 

prog,  swapped  to  from  perspective 

7 

and  3-D. 

Calls:  ORFTPR, ORFTTH .GRDPRS .GRDTHR . 
MOVEAA , SCALPR , SCALTH 

Swapped  to  by  FTSNP 

Called  by:  nothing 

9 

FTOPEN 

opens  feature  data  file,  reads 

1st  block,  header  record. 

Calls:  nothing 

Called  by:  ORFTPR, DRFTTH 

FTMAIN 

11 

FTSWP 

fills  file  "PNTFL"  with  common 

PERSP 

7 

blocks,  swaps  to  "FTMAIN. SV* 
for  feature  and  grid  line 
plotting. 

Calls:  MOVEAA 

Called  by:  PERSP.THREED 

THREEO 

9 
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EXECUTABLE 

FILE 

FUNCTION 

PROGRAM(S) 

DIAGRAM 

GROPRS 

plots  grid  lines  for  perspective 
view.  Uses  point  file  from  PPLOT. 
Calls:  PRSL1N 

Called  by:  FTMAIN 

FT MAIN 

11 

GRDRTM 

plots  grid  lines  specified  by  IGRID 
on  the  RTM  plots. 

Calls:  PLOT 

Called  by:  RPLOT 

RTM 

8 

GRDTHR 

plots  grid  lines  on  3-D  plot. 

Uses  point  file  created  In  TPLOT. 
Calls:  PLOT ,PTRD 

Called  by:  FTHAIN 

FTMAIN 

11 

HIDDEN 

operations  on  the  hidden  point 

FTMAIN 

11 

matrix. 

PERSP 

7 

Calls:  MOVEKA 

Called  by:  PPLOT, PRSBO, PRSFT, 
THRBD.THRFT, TPLOT 

threed 

9 

IAZCHK 

tests  If  a  periodic  value  Is  within 

FTMAIN 

11 

specified  region.  Function. 

RTM 

8 

Calls:  nothing 

PROFL 

6 

Called  by:  CALCPR.GRDPRS, GRDRTM, 
PRSBO  ,PTMN  .RTMBO  .RTMFT 

CLOAD 

12 

ICHK 

tests  If  a  value  Is  between  two 

CLOAD 

12 

other  values.  Function. 

Calls:  nothing 

Called  by:  CONTBD,  PRSBO, PRSLIN 
RTMBD,  THRBD 

FTMAIN 

11 
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FILE 

FUHHON 

EXECUTABLE 

PR0GRAH(S1 

DIAGRAM 

1NC0N 

reads,  validates,  prints  Inputs 
for  contour  plot  option. 

Calls:  DHSSEC.LL2UTM.MGB0UN, 

HOVEAA, NP AGE .PLTPRT .UTH2LL 

Called  by:  CHAIN 

CLOAD 

1 

INLOS 

reads,  validates  Inputs  for 
line  of  sight  profile. 

Calls:  DHSSEC.ERTOPT.ERTPRT, 
LL2UTH.HGC0RD, HOVEAA, NP AGE, UTH2LL 
Called  by:  LMAIN 

LLOAD 

2 

INPRS 

reads,  validates,  prints  Inputs 
for  the  perspective  plot. 

Calls:  OMSSEC , ERTOPT , ERTPRT , 
LL2UTM,MGCORD.HOVEAA,NPAGE,PLTOr  . 
PLTPRT  .RDGPRT  .UTM2LL 

Called  by:  PHAIN 

PLOAD 

3 

INRTH 

reads,  validates,  prints  Inputs 
for  the  radar  terrain  mask  plots. 
Calls:  OHSSEC, ERTOPT, ERTPRT, LL2UTM, 
HGCORO .HOVE AA.NPAGE .PLTPRT .UTH2LL 
Called  by:  RHAIN 

RLOAD 

4 

INTHRO 

reads,  validates,  prints  Inputs 
for  the  3-D  plot  option. 

Calls:  DHSSEC.ERTOPT.ERTPRT, 
L12UTH,HG80UN,HOVEAA,NPAGE,PLTOPT, 

PLTPRT, RDGPRT.UTH2LL 

Called  by:  THA1N 

TLOAD 

5 
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EXECUTABLE 

FILE 

FUNCTION 

PROGRAMS ) 

DIAGRAM 

INVM 

computes  azimuth  (radians)  and 
dlst  (m)  between  2  points,  given 
the  points  coords  In  radians. 

Calls:  SOOINV 

Called  by:  LMAIN 

LLOAU 

2 

IUNPCK 

unpacks  computer  word  Into  2 

CLOAO 

1 

integers,  l.e.  left  byte  and  right 

LLOAD 

2 

byte. 

PLOAD 

3 

Calls:  nothing 

RLOAU 

4 

Called  by:  TITLE, ALT, KAM2AS 

TLOAD 

5 

PROFL 

6 

PLTRN 

IS 

KAM2AS 

converts  alphanumeric  array 
(A2  format)  to  array  of  ASCII 
decimal  equlv.  integers 
(ADE).  for  output  to 

Tektronix  terminal. 

Calls:  IUNPCK 

Called  by:  SYMBOL 

PLTRh 

15 

LL2UTH 

Lat.,  long,  to  UTM  conversion 

CLOAD 

1 

(major  and  minor  zone). 

FTMAIN 

11 

Calls:  nothing 

LLOAD 

2 

Called  by:  CNVTR.ORFTPR  .DRFTTH, 

PLOAD 

3 

INCON, INLOS.INPRS, 

PROFL 

6 

I NRTM , I NTHRD , PLBPF  T , 

RLOAD 

4 

PLSPFT.TITLE 

RTM 

12 

TLOAD 

5 
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FILE 

FUNCTION 

EXECUTABLE 

PROGRAM(S) 

DIAGRAM 

LMAIN 

■uln  prog,  for  line  of  sight  plot. 
Calls:  AGAIN. INLOS.INVM, 

LOSPLT .LOSPRT .MOVEAA .NPAGE , 
PMPRT.PRCEED.PRFRD, JPRFRT, 

SETUP. TITLE, UTM2LL 

Called  by:  nothing 

LLOAD 

2 

LOSPLT 

plots  line  of  sight  profile  In 

8"  x  12“  area. 

CaTls:  COP SM. DASH .ERTPLT .LPARSM, HOVEAA 
MOVEKA, NUMBER, PLOT. PLTSV.PSWAP, 

STMBOL 

Called  by:  LMAIN 

LLOAD 

• 

2 

LOSPRT 

prints  table  of  elevation  values. 

Calls:  NPAGE 

Called  by:  LMAIN 

LLOAD 

2 

LPARSM 

stores  line  of  sight  plot 
parameters  In  plot  file. 

Calls:  PLOTS 

Called  by:  LOSPLT 

LLOAD 

2 

ma  ;  i  ■ 

create,  modify,  delete  feature 

data  files 

Calls:  ADDREC .CHANGE .DMSSEC , ERRFT , 

MGSET.MOVEAA.MOVEKA.ONEPNT, 

PRINFT.SRCHFI 

Called  by:  nothing 

MA1NFT 

13 

MG80UN 

user  Inputs  boundary  values  in  Mil 
grid  form. 

CLOAD 

TLOAD 

1 

5 

Calls:  nothing 
Called  by:  INCON.INTKRD 
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E  XL  CU  t  ABLE 


FILE 

FUNCTION 

PROGRAM! S) 

DIAGRAM 

HGCORD 

user  Inputs  UTM  value  In  mil 

LLOAD 

2 

grid  form  (EEEENNNN). 

MAINFT 

13 

Calls:  nothing 

PLOAD 

3 

Called  by:  AOOREC.IKLOS, 

INPRS.INRTM 

RLOAO 

4 

NGSET 

Sets  up  prefix  value  for  use  on 

CLOAD 

1 

UTM  coords.  Sets  up  min  possible 

LLOAD 

2 

values  for  northing  and  easting. 

MAINFT 

13 

Calls:  nothing 

PLOAD 

3 

Called  by:  MAINFT, SETUP 

RLOAD 

4 

TLOAD 

5 

MOVEAA 

moves  the  1st  NUM  values  In 
the  array  IFKOM  to  the  1st 

ALL 

NUM  elements  of  the  array  ITO. 

Calls:  nothing 

Called  by:  many  programs 

MOVEKA 

fills  the  1st  NUM  values  of 
array  ITO  with  the  value  IVAL. 

Calls:  nothing 

Called  by:  many  programs 

ALL 

NPAGE 

notifies  user  to  make  hard 

copies  and  erase  screen. 

Calls:  nothing 

Called  by:  many  programs 

ALL 

NUMBER 

Version  1-records  plot 

CLOAD 

1 

coiwiand  on  plot  file 

LLOAD 

2 

using  PLOTB. 

PERSP 

7 

Calls:  PLOTB 

THREED 

9 

Called  by:  many  programs 

RTM 

8 
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EXECUTABLE 

FILE 

FUNCTION 

PROGRAM! S) 

DIAGRAM 

Version  2  -  actually  sends  plot 

command  to  Tektronix. 

Calls:  Tektronix  routines 

Called  by:  PLTRN 

PLTRN 

15,10 

ONEPNT 

In  future,  will  be  subroutine  to 
digitize  data  from  maps; 
presently  returns  zeros. 

(not  yet  Implemented) 

Calls:  THMBPT 

Called  by:  ADQREC.MAINFT 

HAINFT 

13 

PERSP 

does  actual  plotting  for 

PERSP 

7 

perspective  view.  Swapped  to 

from  "PMAIN.SV* 

Calls:  COPSM, FT  SUP .MOVEAA, PLOT , 
PPLOT.PSWAP 

Swapped  to  by  PRSWP 

3 

PLBPFT 

calc,  position  of  each  feature 

CLOAD 

12 

boundary  point,  converts  It  (If 
necessary),  and  calls  plot  routine. 
Calls:  C0NTBD,LL2UTM,RTMBD,UTM2LL 
Called  by:  DRIVFT 

RTM 

PLOT 

Version  1  -  records  plot  command 

CLOAD 

1 

in  plot  file  using  PLOTB. 

LLOAD 

2 

Calls:  PLOTB 

RTM 

8 

Called  by:  many  programs 

PERSP 

7 

THREED 

9 

FTMAIN 

11 

12 
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FILE 


PLOTB 


PLOTPM 


PLOTS 


PLSPFT 


FUNCTION 


EXECUTABLE 

PROS RAH (S)  DIAGRAM 


Version  2  -  actually  sends  plot  PLTRN 

command  to  Tektronix. 

Calls:  Tektronix  routines 
Called  by:  PLTRN 


stores  all  plot  commands  in  CLOAD 

buffer  and  writes  the*  Into  FTHAIN 

plot  file.  LLOAD 

Calls:  MOVEAA.MOVEKA  FERSP 

Called  by:  COPSM.CPARSM.DSHSM,  RTM 

LP ARSM. PPARSM . RPARSM ,TP ARSM .PLOT ,  THREEO 

NUMBER. SYMBOL 

prints  parameters  from  the  .PM  DOPARM 

file.  PLTRN 

Calls:  MOVEAA 
Called  by:  DOPARM.PLTRN 

plot  initialization  routine,  PLTRN 

defines  plot  file  buffer,  output 

device. 

Calls:  Tektronix  routines 
Called  by:  PLTRN 


calc,  location  of  feature  data  point,  CLOAD 
converts  it  (If  necess.},  calls  RTM 

plot  routine. 

Calls:  C0NTFT,LL2UTM,RTMFT,UTM2LL 
Called  by:  DRIVFT 


10,15 


1 

11 

2 

7 

8 
9 

12 

10 


10 


12 
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PLTOPT 


PLTPRT 


HjjjCTlOjl 

reads,  validates  plot  options  used 

for  perspective  and  3-0 

plots. 

Calls:  nothing 
Called  by:  1NPRS.1NTHRD 

prints  plot  options  chosen  by 
user. 

Calls:  nothing 

Called  by:  INCON.INPRS, 

INRTN.INTHRD 

actually  does  all  the  plotting 
produced  by  the  other  programs, 
reads  plotting  requests  from 
plot  file  and  invokes  Tektronix 
routines. 

Calls:  MOVEAA.NPAGE.PLOTPM, PLOTS, 

PL2.VPRMS.VZSHP 

Swapped  to  by  PSUAP 

gives  user  the  option  of  saving 
a  plot  output  file. 

Calls:  MOVEAA 

Called  by:  CMAIN.LOSPLT, 

PR  SUP , RT  SUP , TH  SUP 

Overlay  segment  where  all 
plotting  calls  are  made. 

Opens,  reads,  closes  plot  file. 
Calls:  COPY.OASH.NOVEAA.MOVEKA, 
NUMBER. PLOT, SYMBOL, TSEND 


EXECUTABLE 
PROGRAM! S) 


DIAGRAM 
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FILE 

PMAIN 


PHPRT 


PPARSM 


PPLOT 


PRCEED 


PRFRD 


FUNCTION 

■aln  prog,  for  perspective  plots 
Colls:  AGAIN, INPRS.HOVEAA. 

HP AGE .PHPRT .PRCEED , JPRFRT , 

PRSWP . SETUP .TITLE 
Called  by:  nothing 

puts  a  parameter  file  name  Into 
the  parameter  print  file. 

Calls:  MOVEAA 

Called  by:  CHAIN, LHAIN, 

PHAIN.RHAIN.THAIN 

stores  parameters  needed  to  do  a 
perspective  plot  to  scale. 

Calls:  PLOTB 
Called  by:  PRSPLT 


EXECUTABLE 
PROGRAM! S) 

PLOAD 


CLOAD 

LLOAD 

PLOAD 

RLOAD 

TLOAD 

PERSP 


does  plotting  for  the  perspective  PERSP 

plot  program. 

Calls:  CON, HIDDEN, MOVEAA.MOVEKA, 

NUMBER .PLOT .OPRFRD, PRSPLT 
Called  by:  PERSP 


asks  user  If  he  wants  to  proceed  CLOAD 
with  the  Inputs  he  Is  using.  LLOAD 
Calls:  nothing  PLOAD 
Called  by:  CHAIN, LHAIN,  RLOAD 
PHAIN.RHAIN.THAIN  TLOAD 


DIAGRAM 

3 


1 

2 

3 

4 

5 

7 


7 


1 

2 

3 

4 

5 


reads  profile  from  file  CLOAD 
created  by  PROFL  LLOAD 
Calls:  MOVEAA  THREED 
Called  by:  CPLOT .LHAIN, 

TPLOT 


1 

2 

9 
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FILE 

JPRFRO 


JPRFRT 


HPRFRT 


PRFHRT 


PRINFT 


EXECUTABLE 

FUNCTION  PROGRAM(S) 

version  of  profile  read  used  PERSP 

by  perspective  and  radar  RTM 

terrain  mask 

Calls:  MOVEAA 

Called  by:  PPLOT.RPLOT 


creates  or  retrieves  profiles  LLOAD 

needed  by  calling  subroutine;  PLOAO 

swaps  to  PROFL  prog.  If  RLOAD 

profile  file  being  created.  TLOAD 

Calls:  MOVEAA.NPAGE.STAT 
Called  by:  PMAIN.RMAIN, 

LHAIN, TWAIN 


version  of  profile  retrieve  used  CLOAD 

by  contour. 

Calls:  MOVEAA.NPAGE.STAT 
Called  by:  CMAIN 

writes  profiles  onto  file  PROFL 

In  a  buffered  way  to  reduce 
the  number  of  reads  and  writes. 

Calls:  MOVEAA .MOVEKA 
Called  by:  PTMN 

print  feature  data  file  In  MAINFT 

readable  format. 

Calls:  ERRFT , SECDMS .UTM2MG 
Called  by:  MAINFT 


DIAGRAM 

7 

8 


2 

3 

4 

5 


1 


6 


13 
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FILE 


FUNCTION 


EXECUTABLE 

PROGRAMS) 


DIAGRAM 


PRINR 


PROFL 


PRSBD 


PRSFT 


print  feature  data  record  MAINFT  13 

In  clear  format. 

Calls:  SECDNS.UTHZMG 
Called  by:  ADDREC, CHANGE 

determine  terrain  profiles  PROFL  6 

requested  by  calling  prog, 
writes  profiles  Into  profile  file 
which  calling  prog,  reads. 

Calls:  MOVEAA.PTMN 
Swapped  to  by:  JPRFRT  and 
WPRFRT 

plots  boundary  features  on  FTMAIN  11 

perspective  views.  Uses 
point  file  and  hidden  matrix 
from  PPLOT. 

Calls:  CALCPR .HIDDEN .PLOT , 

PRSL IN, PTCALC, SYMBOL 
Called  by:  DRFTPR 

plots  single  point  feature  on  FTMAIN  11 

perspective  plots;  uses  point 
file  and  hidden  matrix  from  PPLOT. 

Calls:  CALCPR, HIOOEN.PTCALC, 

SPSYM 

Called  by:  ORFTPR 


EXECUTABLE 

file 

FUNCTION 

PROGRAM! S) 

DIAGRAM 

PRSLIN 

plots  feature  line  between  2  points 
on  a  perspective  plot.  Uses  point 
file  from  PPLOT. 

Calls:  PLOT .PTCALC 

Called  by:  GROPRS.PRSBO 

FT MAIN 

11 

PRSPLT 

does  Initial  plotting  for  the 
perspective  plot. 

Calls:  NUMBER, PLOT .PPARSM, 

SYMBOL 

Called  by:  PPLOT 

PERSP 

7 

PRSWP 

puts  Info.  Into  swap  file; 
swaps  to  "PERSP. SV“. 

Calls:  MOVEAA.NPAfiE.PLTSV 

Called  by:  PMAIN 

PLOAD 

3 

PSHAP 

writes  final  block  and  header  block 

CLOAD 

1 

of  plot  f11e;swaps  to  plot  prog.. 

FTMAIN 

11 

PLTRN.SV. 

LLOAD 

2 

Calls:  MOVEAA.MOVEKA.NPAGE 

PERSP 

7 

Called  by:  CHAIN, LOSPLT, 

RTM 

8 

persp.rtm.threed 

THREED 

9 

PTCALC 

calc,  screen  posit,  given  profile 

FTMAIN 

11 

point  posit.  Uses  point  file 
from  PPLOT  or  TPIOT. 

Calls:  PTRD 

Called  by:  PRSBD.PRSFT.PRSLIN, 
THRBO.THRFT 
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FILE 

FUNCTION 

EXECUTABLE 

PROGRAM ( S) 

DIAGRAM 

PTMN 

extracts  the  profiles  for  PROFL, 
and  writes  profiles  to  profile  file. 
Calls:  CNVTR ,MOVEAA ,MOVEKA , 

PRFHRT. PTSOR , SODO I R ,MI NOOU 

Called  by:  PROFL 

PROFL 

6 

PTRO 

reads  Into  core  part  of  the  point 

file  created  In  TPLOT  or  PPLOT. 

Calls:  MOVEAA 

Called  by:  GRDTHR .PTCALC 

FTMAIN 

11 

PTS 

fills  the  PTS  array,  B,  with 
elevations  along  a  profile. 

Calls:  ALT, N ALT, SODO I R 

Called  by:  PTSDR 

PROFL 

6 

PTSOR 

overlay  driver  for  subroutines 

PTS  and  PTSSEC 

Calls:  PTS, PTSSEC 

Called  by:  PTMN 

PROFL 

6 

PTSSEC 

fills  array,  E,  with  elevations 
along  a  profile  with  const,  lat.  or 
long,  for  contour  map  or  3-D  plot. 
Calls:  ALT.NALT.MOVEICA 

Called  by:  PTSOR 

PROFL 

6 

RDGPRT 

prints  the  ridge  line  option  chosen 
by  the  user. 

PLOAD 

TLOAO 

3 

5 

Calls:  nothing 
Called  by:  INPRS.INTHRD 
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FILE 

FUNCTION 

EXECUTABLE 

PROGRAM! S) 

DIAGRAM 

RDHDFT 

reads  feature  file  header  record 
to  obtain  (1)  the  #  of  records  In 
file,  (2)  data  conversion  flag. 

Calls:  nothing 

Called  by:  ORIVFT 

CLOAD 

RTM 

12 

RHAIN 

main  prog,  for  radar  terrain 
mask  plots. 

Calls:  AGAIN, INRTM.MOVEAA, 
NPAGE.PMPRT.PRCEEO.JPRFRT, 

RTSWP, SETUP, TITLE 

Called  by:  nothing 

RLOAO 

4 

RPARSM 

stores  parameters  needed  to  do 
radar  terrain  plot  to  scale. 

Calls:  PLOTB 

Called  by:  RTH>LT 

RTM 

8 

RPLOT 

does  plotting  for  radar  terrain 
mask  prog. 

Calls:  CON, GRDRTM, MOVE AA.MOVEKA, 
NUMBER .PLOT , JPRFRD , RTMPLT , 

SYMBOL, THKPLT 

Called  by:  RTM 

RTM 

8 

RTM 

does  actual  plotting  for  radar 
terrain  mask.  Swapped  to  from 

RMAIN 

Calls:  COPSM.ORIVFT.MOVEAA, 

MO VEKA, PLOT, PSWAP .RPLOT 

Swapped  to  by:  RTSWP 

RTM 

8 

4 
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FILE 


RTMBD 


RTMFT 


RTMPLT 


RTSHP 


SCALFT 


FUNCTION 


EXECUTABLE 
PROGRAMS ) 


plots  boundary  type  feature  data  RTM 

on  radar  terrain  masking  output. 

Calls:  MOVEAA, PLOT, SYMBOL 
Called  by:  PLBPFT 

plots  feature  data  single  point  RTM 

record  value  on  radar  terrain 
masking  plot. 

Calls:  SPSYM 
Called  by:  PLSPFT 

does  Initial  plotting  for  radar  RTM 

terrain  mask  option.  Title, 
contour  levels,  etc. 

Calls:  ERTPLT. NUMBER, PLOT. 

RPARSM, SYMBOL 
Called  by:  RPLOT 

puts  Info.  In  swap  file;  swaps  RLOAD 

to  "RTM.SV". 

Calls:  MOVE AA.NP AGE .PLTSV 
Called  by:  RMAIN 

calc,  plot  scale  for  a  contour  CLOAO 

plot;  calc,  boundary  values  for  RTM 

3-0  plot.  OBSOLETE  •  should  be 
removed  In  future  versions. 

Calls:  nothing 
Called  by:  DRIVFT 


DIAGRAM 


12 


12 


8 


4 
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FUNCTION 


EXECUTABLE 

PROGRAM(S) 


DIAGRAM 


SCALPR 


calc,  parameters  needed  to  plot 
grid  lines  and  feature  data 
on  perspective  plots. 

Calls:  nothing 
Called  by:  FTMAIN 


FTMAIN 


SCALTH 


calc,  parameters  needed  to  plot 
grid  lines  on  3-0  plots. 

Calls:  nothing 
Called  by:  FTMAIN 


FTMAIN 


SECDMS 


converts  lat.  or  long,  in  signed 
seconds  to  degrees,  minutes, 
seconds  and  direction. 

Calls:  nothing 

Called  by:  PRINFT.PRINR, TITLE 


LLOAD 

MAINFT 


User  Inputs  (1)  hard  copy 
option,  (2)  name  of  data 
base  file. 

Calls:  MGSET 

Called  by:  CMAIN.LMAIN, 

PMAIN.RMAIN.TMAIN 


SOQOIR 


given  a  ref.  point  in  radians,  an 
azimuth  in  radians,  and  a  dist. 

*rom  the  ref.  pt.  along  the 
azimuth  In  meters,  computes  position 
of  the  new  pt.  In  radians. 

Calls:  nothing 
Called  by:  PTMN.PTS 
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S3 


FILE 

SODINV 


SPSYM 


SRCHFI 


STAT 


SYMBOL 


FUNCTION 


EXECUTABLE 

program; s)  diagram 


computes  parameters  used  by  INVM 
In  calculating  azimuth  and 
geodetic  distance. 

Calls:  nothing 
Called  by:  INVM 

plots  military  symbols  for  single 
point  feature  data. 

Calls:  PLOT .SZPLOT 

Called  by:  CONTFT.PRSFT.RTMFT, 

THRFT 

search  feature  data  file  for 
location  of  a  record  in  the 
file. 

Calls:  ERRFT 
Called  by:  MAINFT 

prints  statistics  on  use  of 
data  base  for  any  output. 

Zeros  counters  for  next  output. 

Calls:  nothing 

Called  by:  JPRFRT ,WPRFRT 


LLOAD 


CLOAD 

FTMAIN 

RTM 


MAINFT 


CLOAD 

LLOAO 

PLOAD 

RLOAO 

TLOAD 


2 


12 

11 


13 


1 

2 

3 

4 

5 


Version  1  -  records  plot  command 

CLOAD 

in  plot  file  using  PLOTB. 

LLOAD 

Calls:  PLOTB 

PERSP 

Called  by:  many  programs 

THREED 

RTM 

FTMAIN 

1 

2 

7 
9 

8 
11 
12 
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SZPLOT 


THKPLT 


THMBPT 


THRBO 


THREEO 


Version  2  -  actually  sends  plot  PLTRN 

command  to  Tektronix 
Calls:  Tektronix  routines 
Called  by:  PLTRN 


plots  the  unit  size  symbol  above  CLOAD 

the  unit  symbol  already  plotted.  FTMAIN 

Calls:  SYMBOL  RTM 

Called  by:  SPSYM.UNPLT 

plots  a  line  of  thickness  TH  RTM 


from  (XI.  Yl)  to  (X2,  Y2). 

Calls:  PLOT 
Called  by:  RPLOT 

used  for  digitizing  the  MAINFT 

location  of  feature  data. 

Calls:  Tektronix  routines 
Called  by:  ONEPNT 

plots  boundary  type  feature  FTMAIN 

data  on  3-0  plots. 

Calls:  CALCTH, HIDDEN, MOVEAA, PLOT, 

PTCALC, SYMBOL 
Called  by:  ORFTTH 

does  actual  1  plotting  for  oblique  THREED 

view  (1  .e.  3-0). 

Calls:  COPSM.FTSWP, MOVEAA, PLOT, 

PSWAP.TPLOT 
Swapped  to  by:  TN5WP 


10 


12 

11 


8 


13 


11 


9 

5 


36 


FILE 


FUNCTION 


EXECUTABLE 
PROGRAM! S) 


DIAGRAM 


THRFT 


THREEO 


THRFT 


THRPLT 


THSWP 


plots  single-point  feature  data  FTMAIN 

on  3-0  plots. 

Calls:  CALCTH, HIDDEN, PTCALL.SPSYM 
Called  by:  DRFTTH 

does  actual  plotting  for  oblique  THREED 

view  (l.e.  3-D). 

Calls:  COP SM.FTSWP.MOVEAA, PLOT , 

PSWAP.TPLOT 
Swapped  to  by:  THSWP 

plots  single-point  feature  data  FTMAIN 

on  3-D  plots. 

Calls:  CALCTH, HIDOEN,PTCALC,SPSYM 
Called  by:  DRFTTH 

calc,  plot  scale,  and  projection  THREED 

plane  tilt  angle  and  does  initial 
plotting  for  3-D. 

Calls:  PLOT , S  YMBOL ,TP ARSM 
Called  by:  TPLOT 

puts  info.  Into  swap  file;  swaps  TLOAD 

to  “THREED. SV* 

Calls:  MOVEAA.NPAGE.PLTSV 
Called  by:  TMAIN 


11 


9 


11 


9 


5 
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FILE 

TITLE 


TWAIN 

TPARSM 

TPLOT 


EXECUTABLE 


FUNCTION  PROGRAH(S)  DIAGRAM 


prints  title  page  at  beginning  CLOAD  1 
of  run;  prints  polynomial  LLOAD  2 
parameters  If  disk  file  present,  PLOAD  3 
prints  area  parameters  if  these  are  RLOAD  4 
In  core.  TLOAD  5 


Calls:  IUNPCK , LL2UTM.MOVEAA , NPAGE , 

secoms.utmprt 

Called  by:  CHAIN, LMAIN.PMAIN, 

R MAIN, TWAIN 

main  prog,  for  3-D  or  oblique  view.  TLOAD  6 

(projection  of  area  onto  plane). 

Calls:  AGAIN. INTHRD.MOVEAA, 

NPAGE, PMPRT.PRCEED, 

JPRFRT.SETUP.THSWP, TITLE 
Called  by:  nothing 

stores  3-0  plot  parameters  in  THREED  9 

plot  file 
Calls:  PLOTB 
Called  by:  THRPLT 

does  plotting  for  3-D  or  oblique  THREED  9 

view  prog. 

Calls:  CON, HIDDEN, MDVEKA, PLOT, 

PLOTS, PRFRD, THRPLT 
Called  by:  THREED 
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EXECUTABLE 

FILE 

FUNCTION 

PROGRAM! S) 

DIAGRAM 

UNPLT 

plots  the  unit  symbol  between 

♦FTMAIN 

*  11 

two  boundary  points. 

Calls:  PLOT.SZPLOT 

Cal  led  by:  - 

♦Not  currently  being  loaded  Into 
executable  programs 

*RTM 

*  12 

UTW>RT 

convert  floating  point  number 

CLOAO 

1 

to  an  NCHAR  aplhanumerlc 

LLOAD 

2 

array  with  A1  format.  Done  to 

PLOAD 

3 

preserve  precision  In  printing 

RLOAD 

4 

of  large  floating  point  numbers. 
Calls:  nothing 

Called  by:  TITLE 

TLOAD 

5 

UTM2LL 

calc,  geographic  coordinates 

CLOAD 

1 

from  universal 

FTMAIH 

11 

transverse  mercator  (UTH) 

LLOAD 

2 

coordinates. 

PLOAD 

3 

Calls:  nothing 

PROFL 

6 

Called  by:  CNVTR .DRFTPR .DRFTTH , 

RLOAD 

4 

INCON.INLOS.INPRS.INRTM 

RTM 

12 

INTHRD.LMAIN.PLBPFT.PLSPFT 

TLOAD 

5 

UTM2HG 

convert  UTM  value  to  mil  grid 
value  that  Is  In  character  format. 
Calls:  nothing 

Called  by:  PRINFT.PRINR 

MAINFT 

13 

VPL2 

makes  all  the  plotting  calls  for 

VPL2 

10,14 

Versatec  plotting. 

Calls:  FACTOR,  MOVEAA.MOYEKA, WHERE, 
WNUMBER , WP  LOTS , WSYMBOL , XPLOT 
Swapped  to  by:  V2SWP 
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FILE 

FUNCTION 

EXECUTABLE 

PROGRAM! S) 

DIAGRAM 

VPRMS 

sets  the  Versatec  scales,  window 
Units  and  stripping  factor. 

Calls:  nothing 

Called  by:  PLTRN 

PLTRN 

10 

V2SUP 

swaps  to  the  Versatec  plotting 
program  VPL2. 

Calls:  MOVEAA 

Called  by:  PLTRN 

PLTRN 

10 

WINDOW 

puts  user  defined  area  Into  core 
memory  for  faster  execution. 

Calls:  nothing 

Called  by:  PTMN 

PROFL 

6 

40 


IIC.  EXPANDED  PROGRAM  DESCRIPTIONS 


ADDREC  This  subroutine  serves  two  purposes. 

1.  Add  feature  data  records  to  an  existing  feature  data 
file. 

2.  Change  location  information  of  any  record  already  in  the 
feature  data  file. 

Location  information  gives  the  location  of  a  point  by 
specifying  its  latitude  and  longitude  or  its  northing-easting 
values.  The  user  can  input  location  information  by  keying-in 
or  by  the  digitizing  tablet  (not  yet  implemented). 

(Drawing  13) 

SUBROUTINE  ADDREC ( I BLK , I WD , I FL AG ) 

Parameters 


IBLK 

Block  number  wheere  feature 

found. 

data  record  is 

I  WD 

- 

Start  position  of  record  in 

block. 

I  FLAG 

0  =  adding  new  record 

1  =  changing  old  record 

AGAIN  asks  the  user  if  he  wants  to  do  another  plot  of  the  same  type. 
(Drawings  1,2, 3, 4, 5) 

SUBROUTINE  AGAIN(IJ.IK) 

Parameters 

IJ  -  Flag  denoting  type  of  plot: 

1  -  Line-of-Sight 

2  -  Radar  Terrain  Mask 

3  -  Contour 

4  -  Axonometric 

5  -  Perspective 

6  -  3-Dimensional 

IK  -  Flag  denoting  answer: 

0  -  No 

1  -  Yes 
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ALT 


This  subroutine  determines  the  elevation  for  a  given  location 
specified  by  the  latitude  and  longitude.  It  reads  the 
polynomial  data  base.  (See  subroutine  NALT  for  gridded  data 
base.)  (Urawing  6) 

SUBROUTINE  ALT(X,Y,Z) 

Parameters 

X  -  Longitude  of  location  in  floating  point 

seconds. 

Y  -  Latitude  of  location  in  floating  point  seconds. 

Z  -  Elevation  above  (X,Y)  location  in  meters. 
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CALCPR  Given  the  X,Y  coordinates  of  a  location  (point)  in  a 

perspective  plot,  CALCPR  calculates  which  profile  the  point  is 
on  and  the  point  number  along  that  profile. 

(Drawing  1 1 ) 

SUBROUT I NE  CALCPR ( R  Y , RX , I  SCAN , NPT ) 

Parameters 

RY  -  Latitude  or  northing  of  location 

RX  -  Longitude  or  easting  of  location 

ISCAN  -  Profile  number  for  location 

NPT  -  Point  number  for  location 

CALCTH  Given  the  X,Y  coordinates  of  a  location  (point)  in  a  3- 

dimensional  plot,  CALCTH  calculates  which  profile  the  point  is 
on  and  the  point  number  along  that  profile. 

(Drawing  1 1 ) 

SUBROUTINE  CALCTH(RY,RX, ISCAN, NPT) 

Parameters 

RY  -  Latitude  or  northing  of  location 

RX  -  Longitude  or  easting  of  location 

ISCAN  -  Profile  number  for  location 

NPT  -  Point  number  for  location 
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CHANGE 


CMAIN 


This  subroutine  allows  the  user  to  change  the  following 
information  in  a  feature  data  record: 

1.  The  record  code  (numeric). 

2.  The  record  description  (20  characters  or  less). 

3.  Location  information  (i.e.  the  latitude  and  longitude  or 
northing-easting  values  of  a  point.)  Location 
information  is  changed  by  calling  subroutine  ADDREC. 

(Drawing  13) 

SUBROUTINE  CHANGE ( IBLK, IWD) 

Parameters 

IBLK  -  '  Block  §  to  read  containing  feature  record 
IWD  -  Word  #  where  record  starts 

is  the  main  program  for  the  contour  option.  CMAIN  calls  the 
subroutines  which  generate  and  display  the  contour  map.  At 
the  option  of  the  user,  feature  data  points  can  be  drawn  on 
the  plot.  (See  subroutine  DRIVFT.) 

User  inputs  are  made  in  subroutine  INCON. 

(Drawing  1 ) 

Parameters  -  None 
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CNVTR 


is  the  subroutine  which  controls  the  conversion  of  units 
between  the  WGS  and  UTM  system. 

(Drawing  6) 


CON 


SUBROUTINE  CNVTR(IFLAG,ISPHR,IH,IZONE,XIN,YIN,XOUT,YOUT,IZOUT) 
Pa rameters 

I FLAG  =  1  for  WGS  to  UTM  (calls  LL2UTM) 

2  for  UTM  to  WGS  (calls  UTM2LL) 

ISPHR,IH,IZONE,XIN,YIN  -  See  PARAM  Common  Area 

description. 

If  WGS  to  UTM,  outputs  are  X0UT,Y0UT,IZ0UT,  (the 
northing,  easting,  and  zone). 

If  UTM  to  WGS,  outputs  are  XOUT,  and  YOUT,  (the  latitude 
and  longitude). 

This  subroutine  plots  the  contour  levels  between  two  profiles. 
This  version  of  CON  is  used  to  plot  contours  on  contour  and 
radar  terrain  mask  plots.  (See  subroutine  VCON  for 
perspective  and  3-0.) 

(Drawi ngs  1 ,8) 

SUBROUTINE  C0N(IX, I Y, IZ.NPTS) 

Parameters 

IX  and  IY  are  256  x  2  arrays  of  X  and  Y  coordinates. 

IZ  is  a  256  x  2  array  containing  the  Z  coordinates  for  a 
profile.  (This  array  is  obtained  from  subroutine  PRFRU 
(for  contour  plots)  or  subroutine  JPRFRU  (for  RTM  plots.) 
NPTS  is  the  number  of  points  along  the  profile. 
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CONPLT 


C0NT8D 


CONTFT 


does  the  initial  plotting  for  the  contour  plot  option.  The 
title,  plot  parameters,  and  contour  levels  are  written  around 
the  8x8  inch  plot  in  the  middle  of  the  Tektronix  screen. 
CONPLT  also  calculates  the  X  and  Y  scale  factors  to  fit  the 
plot  area  to  the  8  inch  square. 

(Orawing  1 ) 

SUBROUTINE  CONPLT(XSC , YSC) 

Parameters 

XSC  and  YSC  are  the  horizontal  and  vertical  plot  scales 
output  in  inches/terrain  point. 

plots  boundary  type  feature  data  on  the  contour  plot  option. 
(Drawing  12) 


SUBROUTINE  CONTBD (RY ,RX, ICODE ) 


Parameters 

RY 

_ 

Latitude  or  northing 

of  boundary  point 

RX 

- 

Longitude  or  easting 

of  boundary  point 

ICODE 

- 

Boundary  type  code 

plots  single  point  feature  data  on  the  contour  plot  option. 
Each  point  inside  the  plot  boundaries  is  plotted  along  with 
its  appropriate  military  symbol.  (See  subroutine  SPSYM). 
(Drawing  12) 

SUBROUTINE  CONTFT(RY,RX, ICODE) 

Parameters 

Latitude  or  northing  of  feature  point 
Longitude  or  easting  of  feature  point 
Code  for  single  point  feature.  (See 
subroutine  SYPSM  for  a  description  of 
ICODE). 


RY 

RX 

ICODE 


COPSM 


records  the  number  of  hard  copies  that  has  been  requested  of  a 
plot.  Subroutine  COPSM  calls  subroutine  PLOTS  which  stores  NC 
in  an  array;  when  the  array  is  full,  it  is  written  to  the  plot 
fi  le. 

(Drawings  1,2, 7, 8, 9) 

SUBROUTINE  COP(NC) 

Parameter 

NC  -  The  requested  number  of  plot  copies. 

COPY  produces  the  requested  number  of  hard  copies  of  the  Tektronix 
screen  by  sending  the  appropriate  Tektronix  command  sequence. 
(Drawings  10,16) 

SUBROUTINE  COPY(NC) 

Pa r a meter 

NC  -  The  requested  number  of  plot  copies. 

CPARSM  stores  parameters  in  the  plot  file  needed  to  do  a  contour  plot 
to  scale. 

(Drawing  1 ) 

SUBROUTINE  CPARSM( XL , YL , XD , YD ) 

Parameters 

XD  -  Difference  between  eastern  and  western 
boundaries  in  WGS  or  mil  grid  units. 

YD  -  Difference  between  northern  and  southern 
boundaries  in  WGS  or  mil  grid  units. 

XL  and  YL  give  these  same  differences  multiplied  by  an 
appropriate  scale  factor.  (See  subroutine  CONPLT  and  also 
the  CONBLK  Common  Area). 

CPARSM  calls  PLOTS  which  stores  these  parameters  in  the  IPBUF 
array;  when  this  array  is  full,  they  are  written  to  the  plot 
file. 
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CPLOT 


does  the  plotting  for  the  contour  map  program,  as  f.llows: 

1.  It  calls  subroutine  CQNPLT  which  writes  the  title  and 
plot  parameters. 

2.  For  each  profile,  it  obtains  the  elevation  values  by 
calling  subroutine  PRFRD  and  plots  the  contour  levels  by 
calling  subroutine  CUN. 

3.  If  feature  data  is  to  be  plotted,  CPLOT  computes  the 
values  of  the  variables  in  the  CONTSC  Common  Area. 

(Drawing  1) 

SUBROUTINE  CPLOT 
Parameters  -  none 

DASH  plots  a  dashed  line  from  the  present  screen  position  to  the 
point  (XZ,YZ). 

(Drawing  10) 

SUBROUTINE  DASH(XZ,YZ,NUMOPI) 

Parameters 

XZ  -  X  coordinate  of  point  in  inches. 

YZ  -  Y  coordinate  of  point  in  inches. 

NUMDPI  -  Number  of  dashes  per  inch. 
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r 


DMSSEC 


DOPARM 


DRFTPR 


converts  a  latitude  or  longitude  (in  degrees,  minutes,  seconds 
and  direction)  to  signed  seconds. 

(Drawings  1 ,2,3,4,5,13) 

SUBROUTINE  DMSSEC (LDMS, XL) 

Parameters 

LDMS  -  Latitude  or  longitude  in  degrees,  minutes, 
seconds,  and  direction  (See  CONBLK,LOSBLK,PRSBLK,RTMBLK, 
and  THRBLK  Common  Areas  for  description  of  the  variable 
LDMS). 

XL  -  Latitude  or  longitude  in  signed  seconds. 

requests  the  user  to  enter  a  4  character  name  for  the  file 
which  contains  the  plot  parameters.  It  then  calls  PLOTPM 
which  prints  the  parameters  on  the  terminal,  the  Versatec 
printer  or  both. 

(No  drawing) 

Parameters  -  none  (This  is  a  main  program.) 

is  the  driver  to  plot  feature  data  on  perspective  plots.  It 
computes  the  scale  factors  SCX  and  SCY.  (See  SCOM  Common 
Area). 

DRFTPR  then  calls  subroutine  FTOPEN  which  opens  the  feature 
data  file.  It  then  reads  feature  data  from  this  file  (single 
points  and  boundary  points),  computes  the  X  and  Y  coordinates 
of  these  points  and  calls  the  appropriate  plotting  subroutines. 
(See  PRSBD  and  PRSFT). 

(Drawi ng  11) 

SUBROUTINE  DRFTPR 
Parameters  -  none 
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DRFTTH 


DRIVFT 


is  the  driver  to  plot  feature  data  on  3-dimensional  plots.  It 
calls  subroutine  FTOPEN  which  opens  the  feature  data  file.  It 
then  reads  feature  data  from  this  file  (single  points  and 
boundary  points),  computes  the  X  and  Y  coordinates  of  these 
points,  and  calls  the  appropriate  plotting  subroutine.  (See 
THRBO  and  THRFT). 

(Drawing  1 1 ) 

SUBROUTINE  DRFTTH 
Parameters  -  none 

is  the  driver  subroutine  for  plotting  feature  data  on  a  contour 
plot  or  radar  terrain  mask  plot. 

DRIVFT  opens  the  feature  data  file  and  calls  subroutine  RDHDFT 
to  read  the  header  record  (block  0  of  the  file).  It  then  reads 
records  from  the  file  and  calls  the  appropriate  routines  for 
plotting  feature  data,  as  follows: 

Subroutine  PLSPFT  single  point  feature  data 

Subroutine  PLBPFT  boundary  type  feature  data 

(Drawings  1,8,12) 

SUBROUTINE  DRIVFT 
Parameters  -  none 
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DSHSM 


stores  parametes  needed  to  draw  a  dashed  line  from  one  position 
to  another.  This  version  of  DASH  is  used  for  the  1 ine-of-si ght 
plot.  (It  is  called  by  subroutine  LOSPLT). 

(Drawing  2) 

SUBROUTINE  DASH(X,Y,NDPI ) 

Parameters 

X  -  X  coordinate  of  point  where  line  will  end. 

Y  -  Y  coordinate  of  point  where  line  will  end. 

NDPI  -  Number  of  dashes  per  inch 

ERRFT  This  subroutine  is  used  by  the  programs  which  create  and  modify 
the  feature  data  files.  It  reports  an  error  code  if  an  error 
occurs  in  opening,  closing,  writing  to  or  reading  from  a  file. 
(Drawing  13) 

SUBROUTINE  ERRFT( IERR ,K) 

Parameters 

IERR  -  FORTRAN  error  code  (from  RDBLK) 

K  -  Integer  flag  indicates  which  call  error 

occurred  on. 

ERTOPT  This  subroutine  reads  the  elevation  correction  option  entered 
from  the  keyboard.  The  user  can  choose  option  number 

1.  Earth  curvature  and  atmospheric  refractivity  correction. 

2.  Earth  curvature  correction. 

3.  No  correction. 

Based  on  the  above  option,  ERTOPT  computes  the  value  of  COEF, 
the  correction  to  be  applied,  and  stores  this  value  in  the 
EARTH  Common  Area.  (These  correction  options  can  be  used  with 
all  plot  types  except  the  contour  plot). 

(Drawings  2, 3, 4, 5) 

SUBROUTINE  ERTOPT 
Parameters  -  none 
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ERTPLT  plots  the  earth  correction  option  chosen  by  the  user  in 

subroutine  ERTOPT.  Nothing  is  written  for  the  ‘no  correction' 
option. 

(Drawings  2,8) 

SUBROUTINE  ERTPLT(XP,YP) 

Parameters 

XP  and  YP  are  the  X  and  Y  coordinates  on  the  Tektronix 
screen  where  writing  will  start. 

ERTPRT  prints  on  the  Tektronix  screen  (Unit  number  IWRT)  the  earth 
correction  option  chosen  by  the  user  in  subroutine  ERTOPT. 
Nothing  is  printed  for  the  'no  correction'  option. 

(Drawings  2, 3, 4, 5) 

SUBROUTINE  ERTPRT 
Parameters  -  none 

FTMAIN  is  the  driver  program  for  plotting  feature  data  on  a 

perspective  or  3-dimensional  plot.  ( "FTMAIN. SV"  is  swapped  to 
from  subroutine  FTSWP).  Note  that  FTMAIN  is  used  for  drawing 
grids  on  these  two  plot  types  as  well  as  feature  data. 

Before  plotting  is  done,  FTMAIN  reads  necessary  information 
from  the  disk  file  "PNTFl"  and  opens  the  plot  file  "PLOTF".  It 
then  calls  the  appropriate  subroutines  for  plotting  a  grid 
and/or  feature  data. 

(Drawings  7,9,11) 

Parameters  -  none  (This  is  a  main  program) 


53 


FTOPEN 


FTSWP 


opens  the  feature  data  file,  reads  the  first  block,  and 
extracts  from  the  header  record  the  number  of  feature  records 
and  a  flag  variable  used  to  specify  the  conversion  of  units 
between  the  WGS  and  UTM  system.  (See  PLOTVR  Common  Area). 
(Drawing  11) 

SUBROUTINE  FTUPEN(IOPEN, IBUF) 

Parameters 

IOPEN  =  1  if  the  file  is  not  successfully  opened  and  read. 
IBUF  =  returns  the  header  record 

fills  the  file  "PNTFL"  with  the  appropriate  Common  blocks  and 
swaps  to  "FTMAIN.SV"  to  do  the  feature  data  plotting  and  grid 
line  plotting. 

FTSWP  fills  the  "PNTFL"  file  as  follows:  values  from  various 
Common  blocks  are  put  into  the  IBUF  array  (See  BUF  Common  Area) 
and  this  array  is  written  to  block  0  of  the  disk  file.  The 
plot  buffer,  IPBUF  is  written  to  block  1  and  the  hidden  point 
matrix,  MHIDE,  to  following  blocks.  (See  also  PLTBF  and  HIDE 
Common  Areas). 

(Drawings,  7,9) 

SUBROUTINE  FTSWP 
Parameters  -  none 
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GRDPRS 


GRDRTM 


GRDTHR 


plots  grid  lines  on  the  perspective  plot.  Spacing  between  grid 
lines  is  specified  by  the  variable  I  GRID  (See  GRDBLK  Common 
Area). 

Each  line  is  plotted  by  calling  PRSLIN,  which  in  turn  calls 
PTCALC  and  PLOT. 

GRDPRS  uses  the  point  file  created  by  PPLOT.  (See  the  PTBLK 
and  PTFIL  Common  Areas). 

(Drawing  1 1 ) 

SUBROUTINE  GRDPRS 
Parameters  -  none 

draws  grid  lines  on  radar  terrain  mask  plots.  The  grid 
consists  of  vertical  and  horizontal  lines.  Spacing  between 
grid  lines  is  specified  by  the  variable  IGRIl).  (See  GRDBLK 
Common  Area). 

GDRTM  computes  grid  spacing  (in  inches)  and  the  intersection  of 
the  grid  with  the  plot  boundary,  and  calls  PLOT  to  write  this 
information  to  the  plot  file. 

(Drawing  8) 

SUBROUTINE  GRDRTM 
Parameters  -  none 

draws  grid  lines  on  3-dimensional  plots.  Spacing  between  grid 
lines  is  specified  by  the  variable  IGRIO.  (See  GRDBLK  Common 
Area) . 

GRDTHR  uses  the  point  file  created  by  TPLOT.  (See  the  PTBLK 
and  PTFIL  Common  Areas).  It  calls  PLOT  to  write  this 
information  to  the  plot  file. 

(Drawing  11) 


SUBROUTINE  GRDTHR 
Parameters  -  none 


HIDDEN  sets,  clears,  or  checks  bits  in  the  hidden  point  matrix  (array 
MHIDE  in  Common  HIDE). 

(Drawings  7,9,11) 


SUBROUTINE  HIDDEN (BIT, I FLAG, I CODE) 


Parameters 

BIT 

- 

number 

of 

the  point  in  the  matrix  to  set, 

clear. 

or 

check. 

ICODE 

- 

0 

clear  the  bit 

1 

set  the  bit  to  1 

2 

check  the  bit,  return  status  in 

I  FLAG 

IF  LAG 

- 

0 

bit  is  not  set 

1 

bit  is  set 

IAZCHK  FUNCTION  IAZCHK  tests  whether  a  periodic  value  is  within  a  specified 
region. 

(Drawings  6,8,11,12) 

FUNCTION  IAZCHK(AZ,AZ1 ,AZ2) 

Parameters 

AZ  -  The  test  value 
AZ1.AZ2  -  Boundary  values 
IAZCHK  *  1  -  Returned  if  within  region 
=  0  -  If  outside  region 

The  following  convention  is  used  for  determining  whether  an  angular 
value  is  "within"  a  region: 


AZ2>  AZ1  AZ1  >  AZ2 


IAZCHK i  1 


ICHK  FUNCTION  ICHK  tests  whether  a  value  is  between  two  other  values. 
(Drawings  11,12) 

FUNCTION  ICHK(A,A1,A2) 

Parameters 

A  -  The  test  value 
A1,A2,  -  Boundary  values 

ICHK  =  1  -  Returns  if  between  boundary  values 

=  0  -  If  outside  boundary  values 

INCON  is  the  subroutine  where  most  of  the  user  inputs  for  the  contour  plot 
are  made.  It  reads  these  inputs  from  the  terminal,  checks  their 
validity  and  prints  them  on  the  terminal  in  a  readable  format. 

INCON  requests  the  following  information  from  the  user: 

1.  Plot  boundaries. 

If  data  is  being  entered  in  the  WGS  system  (INPUT  =1), 
these  boundaries  are  entered  as  latitudes  and  longitudes 
in  degrees,  minutes,  seconds,  and  direction,  (LDMS). 

DMSSEC  is  called  to  convert  these  units  to  signed  seconds. 
If  data  is  being  entered  in  the  mil  grid  system  (INPUT  = 
2),  INCON  calls  MGBOUN  to  obtain  the  boundary  inputs. 

( IBND). 

2.  Latitude  and  longitude  intervals.  (D).  The  user  inputs 
these  as  latitude  and  longitude  intervals  in  seconds  (WGS 
system)  or  northing  and  easting  values  in  meters  (mil  grid 
system). 

3.  The  minimum  contour  level  in  meters.  (ICMIN) 

4.  The  contour  interval  in  meters.  ( ICDEL) 

5.  The  tic  mark  spacing.  ( I TIC )  i.e.,  the  number  of  terrain 
points  between  tic  marks.  A  value  of  zero  gives  no  tic 
marks. 

6.  The  desired  number  of  plot  copies.  (NCOPY) 
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INCON  also  computes  the  number  of  points  along  a  profile  (NPTS)  and 
the  number  of  profiles  (NSCAN), 

After  printing  the  above  inputs  on  the  terminal,  INCON  fills  the 
IPMBUF  array  with  these  values,  and  other  relevant  variables  in  the 
Common  blocks  and  writes  the  array  to  block  0  of  the  parameters  file 
(PF). 

Finally,  INCON  checks  and  informs  the  user  if  none  of  the  desired 
contour  area  is  within  the  data  base. 

See  also  the  CONBLK.IBND,  and  CONPRM  Common  Areas. 

(Drawing  1 ) 

SUBROUTINE  INCON  ( IGD) 

Pa rameters 

IGD  INCON  sets  IG0=1  if  the  data  base  does  not  contain  any  of 
the  contour  area;  otherwise  IGD  =  0. 


INLOS  is  the  subroutine  where  most  of  the  user  inputs  for  the  line-of- 
sight  plot  are  made.  It  reads  these  inputs  from  the  terminal, 
checks  their  validity  and  prints  them  on  the  terminal  in  a  readable 
format. 

INLOS  requests  the  following  information  from  the  user: 

1.  Locations  of  endpoints  (initial  and  terminal  points).  If  data 
is  being  entered  in  the  WUS  system  (INPUT  =  1),  these  locations 
are  latitudes  and  longitudes  in  degrees,  minutes,  seconds,  and 
direction.  (LDMS).  Subroutine  DMSSEC  is  called  to  convert 
these  units  to  signed  seconds.  If  data  is  input  in  the  mil 
grid  system  (INPUT  =  2),  INLOS  calls  subroutine  MGCORD  to 
obtain  the  endpoint  locations.  ( IA ) . 


2.  The  number  of  profile  points.  (NPTS)  NPTS  must  have  a  value 
from  2  to  750.  If  NPTS  =  0,  an  approximate  100  meter  spacing 
between  points  is  used. 

3.  Earth  correction  option.  INLOS  calls  ERTOPT  to  obtain  this 
input. 

4.  Plot/Print  option.  ( IPRT ) 

IPRT  =  0  plot  only 

1  plot  and  table 

2  table  only 

5.  The  desired  number  of  plot  copies.  (NCOPY) 

After  printing  the  above  inputs  on  the  terminal,  INLOS  fills  the 
IPMBUF  array  with  these  values  and  other  relevant  variables  in  the 
Common  blocks  and  writes  the  array  to  block  0  of  the  parameters  fil 
(PF). 

Finally,  INLOS  checks  and  informs  the  user  if  the  endpoints  are 
outside  the  data  base. 

See  also  LOSBLK.LOCUTM,  and  CONPRM  Common  Areas. 

(Drawing  2) 

SUBROUTINE  INLOS(IGD) 

Pa rameters 

IGD  INLOS  sets  IGD  =  1  if  the  1 ine-of-sight  endpoints  are 
outside  the  data  base;  otherwise  IGD  =  0. 


is  the  subroutine  where  most  of  the  user  inputs  for  the  perspective 
plots  are  made.  It  reads  these  inputs  from  the  terminal,  checks 
their  validity  and  prints  them  on  the  terminal  in  a  readable  format. 
INPRS  requests  the  following  information  from  the  user: 

1.  Location  of  observer. 


If  data  is  being  entered  in  the  W(iS  system  (INPUT  =  1), 
the  location  is  entered  as  a  longitude  and  latitude  value 
in  degrees,  minutes,  seconds  and  direction,  (IDMS). 

DMSSEC  is  called  to  convert  these  units  to  signed  seconds. 
If  input  data  is  in  the  mil  grid  system  (INPUT  =  2),  INPRS 
calls  MGCORD  to  obtain  the  observer  location,  (IA). 

2.  The  plot  bearing  in  degrees.  (AZO) 

3.  Observer  height  in  meters.  (HT) 

4.  Total  radial  length  in  meters.  (DST) 

5.  The  spacing  along  the  radial  in  meters.  (DSTN) 

6.  The  spacing  between  radial s  in  degrees.  (DAZ) 

7.  The  field  of  view  in  degrees.  (V A)  A  value  of  VA=G. 
causes  a  default  value  of  60  degrees  to  be  used. 

8.  Plot  options. 

INPRS  calls  PLTOPT  to  obtain  these  inputs.  (See  PLTOPT). 

9.  Vertical  exaggeration  factor.  (VEX) 

10.  Earth  correction  option.  This  is  obtained  by  calling 
ERTOPT.  (See  ERTOPT). 


INRTM 


11.  The  desired  number  of  plot  copies.  (NCOPY) 

INPRS  also  computes  the  number  of  points  along  a  radial  (NPTS)  and 
the  number  of  radial s  (NSCAN). 

After  printing  these  inputs  on  the  terminal,  INPRS  fills  the  IPMBUF 
array  with  these  values  and  other  relevant  variables  in  the  Common 
blocks  and  writes  the  array  to  block  0  of  the  parameters  file  (PF). 
Finally,  INPRS  checks  and  informs  the  user  if  the  observer  position 
is  outside  the  data  base. 

See  also  the  PRSBLK.LOCUTM,  and  CONPRM  Common  Areas. 

(Drawing  3) 

SUBROUTINE  INPRS(IGO) 

Parameters 

IGD  INPRS  sets  IGD=1  if  the  observer  location  is  not  in  the 
data  base;  otherwise  IGD=0. 

is  the  subroutine  where  most  of  the  user  inputs  for  the  radar 
terrain  mask  plots  are  made.  It  reads  the  inputs  from  the  terminal, 
checks  their  validity,  and  prints  them  on  the  terminal  in  a  readable 
format. 

INRTM  requests  the  following  information  from  the  user: 

1.  The  masking  option.  (IFLAG).  Values  of  IFLAG  and  the 
corresponding  options  are: 


1. 

Safe  area 

contours. 

2. 

Acquisition  contours. 

3. 

Safe  area 

below  given  ceiling. 

4. 

Fields  of 

fi  re. 

2.  Cross  hatching  option.  ( ICH ) 

The  user  specifies  whether  or  not  he  wants  cross  hatching 
to  appear  on  the  plot. 
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3.  Location  of  observer. 

If  data  is  being  entered  in  the  UGS  system  (INPUT  =1), 
the  location  is  entered  as  a  longitude  and  latitude  value 
in  degrees,  minutes,  seconds,  and  direction,  (LDMS). 

DMSSEC  is  called  to  convert  these  units  to  signed  seconds. 
If  input  data  is  in  the  mil  grid  system  (INPUT  =  2),  INTRM 
calls  MGCORD  to  obtain  the  observer  location,  (IA). 

4.  Observer  height  in  meters.  (IH) 

5.  Ceiling  height  in  meters.  ( I FH ) 

(only  if  masking  option  3  is  chosen). 

6.  Coverage  radius  in  kilometers.  (RK) 

7.  Spacing  along  a  radial  in  meters.  (UR) 

8.  Bearing  of  the  first  and  last  radials  (BI  and  BF, 
respectively).  Both  are  in  degrees. 

9.  Spacing  between  radials  in  degrees.  (DB) 

10.  Minimum  contour  level  in  meters.  ( I  CM IN) 

11.  Contour  interval  in  meters.  (ICOEL) 

12.  Grid  spacing  in  seconds.  (IGRID) 

IGRID  =  0  indicates  no  grid  will  be  drawn. 

13.  Earth  curvature  and  atmospheric  refractivity  correction. 
This  is  input  through  a  call  to  ERTOPT.  (See  ERTOPT). 

14.  The  desired  number  of  plot  copies.  (NCOPY) 

INRTM  also  computes  the  number  of  radials  (NR)  and  the  number  of 
points  along  a  radial  (NP). 

After  printing  these  inputs  on  the  terminal,  INRTM  fills  the  IPMBUF 
array  with  these  values  and  other  relevant  variables  from  the  Common 
blocks  and  writes  the  array  to  block  0  of  the  parameters  file  (PF). 
Finally,  INRTM  checks  and  informs  the  user  if  the  observer  position 
is  outside  the  data  base. 

See  also  RTMBLK.LOCUTM  and  CUNPRM  Common  Areas. 

(Drawing  4) 

SUBROUTINE  INRTM(IGO) 

Parameters 

IGD  INRTM  sets  IGD  =  1  if  the  observer  position  is 

outside  the  data  base;  otherwise  IGD  =  0. 
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INTHRO 


is  the  subroutine  where  most  of  the  user  inputs  for  the  3- 
dimensional  plots  are  made.  It  reads  these  inputs  from  the 
terminal,  checks  their  validity  and  prints  them  on  the  terminal  in  a 
readable  format. 

INTHRD  requests  the  following  information  from  the  user: 

1.  Plot  boundaries. 

If  data  is  being  entered  in  the  WGS  system  (INPUT  =  1), 
these  boundaries  are  entered  as  latitudes  and  longitudes 
in  degrees,  minutes,  seconds  and  direction.  (LDMS). 

DMSSEC  is  called  to  convert  these  units  to  signed  seconds. 
If  data  is  being  entered  in  the  mil  grid  system  (INPUT  = 
2),  INTHRD  calls  MGBOUN  to  obtain  the  boundary  inputs, 

( IBND) . 

2.  Latitude  and  longitude  spacing.  (D).  The  user  can  input 
these  as  latitude  and  longitude  intervals  in  seconds  (WGS 
system),  or  northing  and  easting  values  in  meters  (ini  1 
grid  system). 

3.  View  Face.  (JV) 

This  is  the  boundary  closest  to  the  projection  plane. 

4.  Direction  from  which  area  is  viewed.  (JA) 

5.  Reference  elevation  in  meters.  (IZMIN) 

6.  Plot  options. 

INTHRD  calls  PLTOPT  to  obtain  these  inputs.  (See  PLTUDT). 
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7.  Vertical  exaggeration  factor.  (VEX) 

8.  Earth  correction  option. 

INTHRO  calls  ERTOPT  to  obtain  this  input.  (See  ERTOPT). 

9.  Desired  number  of  plot  copies.  (NCOPY) 

After  printing  these  inputs  on  the  terminal,  INTHRO  fills  the  IPMBUF 
array  with  these  values  and  other  relevant  variables  in  the  Common 
blocks  and  writes  the  array  to  block  0  of  the  parameters  file  (PF). 
Finally,  INTHRO  checks  and  informs  the  user  if  none  of  the  plot  area 
is  inside  the  data  base. 

See  also  the  THRBLK, I BND,  and  CONPRM  Common  Areas. 

(Drawing  5) 

SUBROUTINE  INTHRD(IGO) 

Parameters 

IGD  INTHRO  sets  IGD  =  1  if  none  of  the  plot  area  is 

inside  the  data  base;  otherwise,  IGO  =  U. 


Given  two  geographic  endpoints  in  signed  seconds,  INVM  computes  tne 
azimuth  in  radians  and  the  geodetic  distance  between  the  two  points 
i n  meters. 

This  subroutine  is  used  by  the  1 ine-of-sight  plot  main  program, 
LMAIN,  for  computing  the  azimuth  and  distance  between  the  initial 
and  terminal  points.  (SODINV  is  also  called  in  the  course  of  this 
computation). 

(Drawing  2) 


SUBROUTINE  INVM(X1  ,X2,X3) 

DIMENSION  XI (2,2) 
Parameters 


Xl(l,l) 
XI  (2,1 ) 
XI  (1 ,2) 
XI  (2,2) 


Latitude  of  first  endpoint  in  signed  seconds. 
Longitude  of  first  endpoint. 

Latitude  of  second  endpoint. 

Longitude  of  second  endpoint. 


X2  is  the  azimuth  in  radians 

X3  is  the  geodetic  distance  in  meters. 


XI, X2,  and  X3  are  all  double  precision  variables. 


IUNPCK 


KAM2AS 


This  subroutine  unpacks  a  computer  word  into  two  integers.  The  two 
integers  receive  the  respective  bytes  (8  bits). 


(Drawings  1 

,2,3,4,5,6,15) 

SUBROUTINE 

IUNPCK( IA,IX, IY) 

Parameters 

IA  - 

Packed  computer  word. 

IX 

Integer  coining  from  the 

left  ha  1 f  of  IA. 

IY  - 

Integer  coming  from  the 

right  half  of  IA 

This  subroutine  translates  an  alphanumeric  array  in  A2  format  into 
an  array  of  ASCII  decimal  equivalent  (ADE)  integers.  This  is  used 
in  the  output  to  a  Tektronix  terminal. 

(Drawing  15) 

SUBROUTINE  KAM2AS(LEN,IAM,IADE) 

Parameters 

LEN  -  Number  of  characters  to  be  translated. 

I AM  -  Alphanumeric  array  in  A2  format. 

IADE  -  Array  of  ADE  integers. 
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LL2UTM  This  subroutine  converts  from  latitude-longitude  units  to  UTM  units 
(northing,  easting  and  zone). 

(Drawings  1,2,3,4,5,6,11,12) 

SUBROUTINE  LL2UTM(L,XLTS,XLNGS,XN0R1 .XEAST1 , IZ0NE1 ) 

Parameters 

L  is  an  integer  from  1  to  8  used  to  specify  which  type  of 
spheroid  constants  is  being  used  for  the  conversion.  (See 
PARAM  Common  Area). 


XLTS 

- 

Latitude  in  signed  seconds. 

XLNGS 

- 

Longitude  in  signed  seconds. 

XN0R1 

- 

Northing  value  in  meters. 

XEAST1 

- 

Easting  value  in  meters. 

IZ0NE1 

- 

UTM  zone. 

LMAIN  is  the  main  program  for  the  1 ine-of-sight  plot.  LMAIN  calls 

subroutines  which  generate  a  profile  of  the  terrain  between  two 
geographic  points.  The  completed  profile  may  be  displayed  on  the 
Tektronix  terminal  as  a  plot  and/or  a  table  of  elevation  values. 

At  the  option  of  the  user,  corrections  for  the  earth's  curvature 
and/or  atmospheric  refractivity  may  be  made.  User  inputs  for  the 
1 ine-of-sight  plot  are  made  in  subroutine  INLOS.  (See  also 
subroutine  ERTOPT. ) 

(Drawing  2) 

Parameters  -  none 
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r 


LOSPLT 


LOSPRT 


does  the  plotting  for  the  1  i rre-of-si ght  plot.  It  produces  a  graph 
of  elevation  in  meters  versus  distance  in  kilometers  along  the  line- 
of-sight  from  the  initial  to  the  terminal  point. 

LOSPLT  first  determines  the  origin  ana  plot  size  (See  also 
subroutine  LPARSM),  and  computes  appropriate  scale  factors.  Then  it 
writes  a  title  on  the  plot,  draws  and  labels  the  axes,  and  plots  the 
elevations. 

LOSPLT  obtains  the  elevations  from  the  IB  array.  (See  the  POINT 

Common  Area). 

(Drawing  2) 

SUBROUTINE  LOSPLT 
Parameters  -  none 

This  subroutine  prints  on  the  Tektronix  terminal  a  table  of  the 
elevation  values  along  the  line  between  the  initial  and  terminal 
points. 

LOSPRT  obtains  the  elevations  from  the  IB  array.  (See  the  POINT 
Common  Area). 

(Drawing  2) 


SUBROUTINE  LOSPRT 
Parameters  -  none 


LPARSM 


stores  parameters  in  the  plot  file  needed  to  draw  a  line  of 
sight  plot  to  scale. 

(Drawing  2) 

SUBROUTINE  LPAR SM ( XO , YO , XLNGTH , YL NGTH ) 

Parameters 

XO  and  YO  give  the  plot  origin  in  inches. 

XLNGTH  and  YLNGTH  give  the  length  and  height  of  the  plot 
in  inches. 

Subroutine  LOSPLT  assigns  values  to  these  variables 
before  calling  LPARSM.  (See  subroutine  LOSPLT  and  the 
PLTSAV  Common  Area). 

LPARSM  calls  PLOTB  which  stores  these  parameters  in  the  IPBUF 
array;  when  this  array  is  full,  they  are  written  to  the  file. 
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MAINFT 


This  is  the  main  program  for  creating  and  modifying  feature 
data  files.  MAINFT  calls  subroutines  which  enable  the  user  to 
add,  delete,  change,  or  print  records  in  a  feature  data  file. 
MAINFT  requests  the  user  to  supply  the  name  of  the  feature 
data  file.  If  it  is  a  new  file,  the  user  also  needs  to  give  a 
file  description  (see  HEADER  Common  Area)  and  choose  whether 
input  is  to  be  in  the  WGS  or  UTM  system.  If  it  is  an  old 
file,  MAINFT  verifies  that  it  is  a  feature  data  file  before 
any  changes  are  made. 

After  printing  on  the  terminal  the  number  of  records  (boundary 
and  single  point),  the  user  is  asked  whether  input  will  be  by 
digitizing  from  maps  or  by  typing  in.  If  input  will  be  by 
digitizing,  MAINFT  computes  the  map  scales  using  four 
reference  points.  (See  REFVAL  Common  Area). 

MAINFT  then  calls  the  appropriate  subroutines  for  modifying 
the  file.  (See  also  subroutines  ADDREC, CHANGE, PRINFT,  and 
SRCHFI. ) 

(Drawing  13) 

Parameters  -  none 
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This  subroutine  allows  the  user  to  input  values  for  plot 
boundaries  in  mil  grid  form.  MGBOUN  is  used  for  the  contour 
and  3-dimensional  plot  types. 


MGBOUN  requests  the  following  information  from  the  user: 

1.  Plot  boundaries.  (IBND) 

Each  boundary  is  input  in  mil  grid  form  as  one  4- 
digit  number  (northing  or  easting  value).  (See  the 
IBND  Common  Area). 

2.  The  zone  row.  ( I ZR ) 

3.  The  zone  column.  ( IZC ) 

(Drawings  1,5) 

SUBROUTINE  MGBOUN ( IT YPE ,80UND , XBQUND ) 

Pa rameters 

I  TYPE  specifies  which  boundary  as  follows: 


ITYPE  Value 


Boundary 


BOUND 


1 

2 

3 

4 


Southern 

Northern 

Western 

Eastern 


Takes  on  X  value  for  Western/Eastern  Boundary 
Takes  on  Y  value  for  Southern/Northern  Boundary 


XBOUND 


Takes  on  X  value  for  Southern/Northern  Boundary 
Takes  on  Y  value  for  Western/Eastern  Boundary 


MGCORD  allows  the  user  to  input  a  UTM  value  in  mil  grid  form.  This 
value  is  either  an  observer  location  (perspective  and  radar 
terrain  mask  plots)  or  an  initial  or  terminal  point  (line-of- 
sight  plot). 

MGCORD  requests  the  user  to  enter  the  UTM  value  as  an  8-digit 
number  of  form  'EEEENNNN'. 

(Drawings  2,3,4,13) 


SUBROUT I NE  MGCORD ( I  TYPE , XEAST , XNORTH ) 

Pa rameters 

ITYPE  Specifies  whether  the  UTM  value  is  an  observer 
location  or  an  initial  or  terminal  point  as 
follows: 


XEAST 

XNORTH 


ITYPE  VALUE 
1 
2 

3 

4 

Easting  coordinate 
Northing  coordinate 


Location 

Observer  location 
Initial  point 
Terminal  point 
Feature  data  point 


72 


MGSET 


MOVEAA 


This  subroutine  sets  up  certain  parameters  for  the  use  of  UTM 
coordinates.  Subroutine  SETUP  calls  MGSET  if  the  user  chooses 
to  input  data  in  mil  grid  units. 

MGSET  requests  the  user  to  input  the  following: 

1.  The  smallest  possible  UTM  easting  value  for  the 
lower  left  mil  grid. 

2.  The  smallest  possible  UTM  northing  value  for  the 
lower  left  mil  grid. 

3.  The  number  of  mil  grid  rows. 

4.  The  number  of  mil  grid  columns. 

Based  on  these  inputs,  MGSET  computes  prefix  values  for 
northing  and  easting  and  minimum  northing  and  easting  values. 
(See  also  the  MGBLK  and  ZONEZ  Common  Areas). 

(Drawings  1,2,3,4,5,13) 

SUBROUTINE  MGSET 
Parameters  -  none 

This  subroutine  moves  a  specified  number  of  elements  from  one 
array  to  another.  It  is  a  utility  type  routine  used  by  many 
of  the  programs.  For  example,  several  subroutines  use  MOVEAA 
to  move  the  values  of  variables  from  Common  blocks  into  a 
buffer  array  which  is  then  written  onto  a  disk  file. 

(Drawings  -  all  except  15,  and  16) 

SUBROUTINE  MQVEAA(NUM, IFROM, ITO) 

Parameters 


NUM 

- 

The  number  of  values 

to  be  moved. 

I  FROM 

- 

Array  from  which  the 

transfer  will  be 

made. 

ITO 

- 

Array  to  which  the  transfer  will  be  made. 
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MOVEKA  This  subroutine  puts  a  value,  IVAL,  into  a  specified  number  of 
elements  of  an  array.  It  is  a  utility  type  routine  used  by 
many  programs. 

(Drawings  1,2,6,7,8,9,10,11,12,13,14) 

SUBROUTINE  MOVEKA (NUM, I VAL.ITO) 

Parameters 

NUM  -  The  number  of  values  to  be  moved. 

IVAL  -  The  value  which  will  be  put  into  the  ITO 

array. 

ITO  -  Array  to  which  the  transfer  will  be  made. 

NALT  This  subroutine  determines  the  elevation  for  a  given  location 
specified  by  the  latitude  and  longitude.  It  reads  the  gridded 
data  base.  (Note  -  see  ALT  for  polynomial  data  base.) 

(Drawing  6) 

SUBROUTINE  NALT(X,Y,Z) 

Parameters 

X  -  Longitude  of  location  in  floating  point  seconds 

Y  -  Latitude  of  location  in  floating  point  seconds 

Z  -  Elevation  above  (X,Y)  in  meters. 


NPAGE 


is  a  utility  subroutine  which  notifies  the  user  to  make  a  hard 
copy  of  information  currently  appearing  on  the  Tektronix 
terminal,  if  desired,  and  then  to  erase  the  screen. 

(Drawings  1,2,3,4,5,7,8,9,10) 

SUBROUTINE  NPAGE 
Parameters  -  none 

ONEPNT  This  is  to  be  the  digitizing  subroutine  for  obtaining  feature 
data  points  from  maps.  (It  is  not  yet  fully  implemented). 

(Drawing  13) 

SUBROUTINE  ONEPNT(IX,IY) 

Parameters 

IX  X  coordinate  of  cursor 

IY  -  Y  coordinate  of  cursor 

ONEPNT  will  be  used  by  MAINFT  and  ADDREC  in  the  process  of 
creating  and  modifying  feature  data  files.  It  calls 
subroutine  THMBPT  to  obtain  the  cursor  coordinates. 


PERSP 


PLBPFT 


is  a  main  program  which  calls  the  subroutines  involved  in  the 
actual  plotting  for  the  perspective  plot.  It  is  swapped  to 
from  PMAIN.  (See  also  PRSWP). 

Before  plotting  is  done,  PERSP  reads  necessary  information 
from  the  diskfile  "SWPFL''  and  the  profile  file.  It  then  calls 
PPLOT  to  perform  plotting  and  FTSWP  if  feature  data  is  to  be 
plotted. 

(Drawings  3,7) 

Parameters  -  none 

This  subroutine  is  called  by  DRIVFT  and  is  used  in  plotting 
boundary  type  feature  data  on  a  contour  or  radar  terrain  mask 
plot. 

PLBPFT  calculates  the  position  of  each  boundary  point, 
converts  units  if  necessary,  and  calls  the  appropriate 
boundary  plotting  routine.  Which  routine  is  called  is 
determined  by  the  variable  IPLOT,  as  follows: 

IPLOT  Value  Routine  Called 

1  CONTBD 

2  RTMBD 

(See  also  the  PLOTVR  Common  Area). 

(Drawing  12) 


SUBROUTINE  PLBPFT 
Parameters  -  none 


PLOTS 


PLOTPM 


This  subroutine  is  used  to  store  plot  information  in  an  array, 
IP8UF.  When  the  array  becomes  full,  it  is  written  to  the  plot 
file.  (See  the  PLTBF  Common  Area). 

(Drawings  1,2,7,8,9,11,12) 

SUBROUTINE  PL0TB(NUM,I8UF) 

Parameters 

NUM  -  The  number  of  elements  to  be  added  to  the  IPBUF 
array 

IBUF  -  Array  containing  the  elements  being  added 

prints  out  the  parameters  in  the  "XXXX.PM"  file  that 
corresponds  to  the  plot  file  "XXXX.PL"  where  XXXX  is  the  4- 
character  name  of  the  plot  file. 

PLOTPM  obtains  these  plot  parameters  from  block  0  of  the 
parameter  file.  These  parameters  are  mostly  those  input  by 
the  user  in  subroutine  INCON,INLOS,INPRS,INRTM,  or  INTriRD. 
Output  can  go  either  to  the  Tektronix  terminal  or  the  printer. 
(Drawing  10) 

SUBROUTINE  PLOTPM 
Parameters  -  none 
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PLSPFT 


This  subroutine  is  call ed  by  DRIVFT  and  is  used  in  plotting 
single  point  type  feature  data  on  a  contour  or  radar  terrain 
mask  plot. 

PLSPFT  calculates  the  position  of  each  point,  converts  units 
if  necessary,  and  calls  the  appropriate  single  point  plotting 
routine.  Which  routine  is  called  is  determined  by  the 
variable  IPLOT,  as  follows: 

IPLOT  Value  Routine  Called 

1 
2 

(See  also  the  PLOTVR  Common  Area). 

(Drawing  12) 

SUBROUTINE  PLSPFT 
Parameters  -  none 


CONTFT 

RTMFT 
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PLTOPT 


This  subroutine  requests  the  user  to  input  from  the  terminal 
various  options  for  the  perspective  and  3-diinensional  plots. 

These  options  are  specified  by  the  variable  ICR  as  follows: 

0.  Grid  lines. 

1.  Range  lines. 

2.  Contour  levels. 

3.  Range  lines  with  grid  lines. 

4.  Contour  levels  with  grid  lines. 

Depending  on  the  choice  of  options,  the  user  is  then  requested 
to  input  one  or  more  of  the  following: 

1.  Minimum  contour  level  in  meters  ( I  CM  IN)  and  contour 
interval  in  meters  (ICDEL). 

2.  The  grid  spacing  in  seconds  (WGS  system,  INPUT=1 )  or 
in  meters  (mil  grid  system,  INPUT=2).  ( IGRID ) 

3.  Whether  all  ridge  lines  are  to  be  plotted  (IRDGE). 
These  variables  are  stored  in  the  GRDBLK, RIDGE,  and  IP10PT 
Common  Areas. 

(Drawings  3,5) 

SUBROUTINE  PLTOPT(ICR) 

Parameters 

ICR  -  As  1 isted  above. 
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PLTPRT 


prints  plot  options  chosen  by  the  user  on  the  Tektronix 
terminal.  These  options  apply  to  all  plot  types  except  line- 
of-sight. 

(Drawings  1 ,3,4,5) 

SUBROUTINE  PLTPRT(ICR) 

Parameter 

ICR  (See  subroutine  PLTOPT  for  list  of  ICR  values  and 
corresponding  plot  options). 

Depending  on  the  value  of  ICR,  PLTPRT  prints  contour  levels, 
grid  spacing,  and  whether  range  lines  will  be  plotted.  Inputs 
relevant  to  these  quantities  are  made  in  PLTOPT  (for  the 
perspective  and  3-di mens i onal  plots),  INCON  (contour  plot)  or 
INRTM  (radar  terrain  mask  plot). 

PLTRN  Is  the  main  program  which  calls  the  routines  which  display  a 
plot  file  on  the  Tektronix  terminal  or  Versatec  plotter. 

If  PLTRN  is  swapped  to  from  one  of  the  plotting  programs  by 
subroutine  PSWAP,  the  temporary  plot  file,  "PLOTF",  is 
displayed  on  the  Tektronix  terminal. 

If  PLTRN  is  run  as  a  stand  alone  program,  the  permanent  plot 
file,  "XXXX.PL",  is  displayed  on  the  Tektronix  terminal, 
Versatec  plotter,  or  both,  as  specified  by  the  user. 

(Drawings  1,2,7,8,9,10) 

Parameters  -  none 
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PLTSV  gives  the  user  the  option  of  saving  a  plot  output  file  for 
later  use.  If  the  user  does  not  want  to  save  the  file  PLTSV 
deletes  the  temporary  plot  file,  “PLOTF"  and  corresponding 
parameters  file,  "PLPARM". 

If  the  plot  file  is  to  be  saved,  PLTSV  requests  the  user  to 
supply  a  4-character  name  for  the  permanent  plot  file.  This 
file  is  "XXXX.PL"  and  the  corresponding  parameters  file  is 
"XXXX.PM",  where  XXXX  is  the  user  supplied  name. 

(Drawings  1,2, 3, 4, 5) 

SUBROUTINE  PLTSV 
Parameters  -  none 

PL2  calls  the  subroutines  which  are  involved  in  displaying  a  plot 

file  on  the  Tektronix  terminal.  It  is  called  by  PLTRN. 
(Drawing  10) 

SUBROUTINE  PL2 
Parameters  -  none 

PMAIN  is  the  main  program  for  the  perspective  plot.  PMAIN  calls 
subroutines  which  generate  a  perspective  view,  i.e.  what  an 
observer  would  see  from  a  given  location.  The  user  may  choose 
from  the  following  plot  options: 

Grid  lines 

Range  lines 

Contour  levels 

Range  lines  with  grid  lines 

Contour  levels  with  grid  lines. 

At  the  option  of  the  user,  corrections  for  the  earth's 
curvature  and/or  atmospheric  refractivity  may  be  made. 

Feature  data  points  can  also  be  plotted  on  the  perspective 
view. 

User  inputs  for  the  perspective  plot  are  made  in  subroutine 
INPRS.  (See  also  subroutines  ERTQPT.FTMAIN,  and  PLTOPT.) 
(Orawing  3) 

Parameters  -  none 
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PMPRT 


PPARSM 


This  subroutine  adds  the  name  of  the  profile  file  being  used 
for  the  plot  to  the  disk  file  on  Unit  #44  which  contains  other 
plot  parameters.  These  parameters  can  be  printed  by  PLOTPM. 
(See  OOPARM  and  PLOTPM. ) 

The  profile  file  name  is  stored  in  the  PRFIL  Common  Area. 
(Drawings  1,2, 3, 4, 5) 

SUBROUTINE  PMPRT 
Parameters  -  none 

stores  parameters  needed  to  draw  a  perspective  plot  to  scale. 
(Drawing  7) 

SUBROUTINE  PPARSM(XLEN, YLEN) 

Parameters 

XLEN  and  YLEN  give  the  length  and  height  of  the  plot  in 
i nches. 

PRSPLT  assigns  values  to  these  variables  before  calling 
PPARSM.  PPARSM  calls  PLOTB  which  stores  XLEN  and  YLEN  in  the 
IPBUF  array;  when  this  array  is  full,  they  are  written  to  the 
plot  file. 
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PPLOT 


does  the  plotting  for  the  perspective  plot  as  follows: 

1.  It  calls  PRSPLT  which  computes  plot  parameters  and  writes 
the  plot  title. 

2.  For  each  profile,  it  obtains  the  elevations  of  points 
along  the  profile  by  calling  JPRFRD,  which  reads  this 
information  from  the  profile  file. 

Based  on  this  information,  PPLOT  computes  the  coordinates  of 
each  point  along  the  profile.  Points  which  are  hidden  by 
terrain  features  are  also  computed  so  that  these  will  not  be 
drawn  on  the  plot.  (See  also  the  HIDCM  Common  Area). 

If  feature  data  or  a  grid  is  to  be  drawn  on  the  plot,  PPLOT 
writes  the  coordinates  of  the  points  to  the  Points  file,  for 
later  use  by  the  subroutines  which  plot  the  grid  or  feature 
data. 

(Orawing  7) 

SUBROUTINE  PPLOT 
Parameters  -  none 

PRCEED  asks  the  user  if  he  wants  to  proceed  with  the  inputs  he  has 
entered.  Each  main  program  (CMAIN.PMAIN,  etc.)  calls  PRCEED 
immediately  after  user  inputs  have  been  made  in 
INCON, INLOS, INPRS , INRTM,  or  INTHRD. 

If  the  user  chooses  not  to  proceed,  the  main  program  stops  and 
the  user  can  run  it  again  with  different  inputs. 

(Drawings  1,2, 3, 4, 5) 

SUBROUTINE  PRCEED ( IK) 

Parameter 

IK  -  Flag  denoting  user  answer 
0  -  proceed 

1  -  do  not  proceed. 
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PRFRD  This  subroutine  retrieves  the  previously  computed  elevation 

values  of  points  along  a  profile,  when  these  values  are  needed 
by  the  plotting  programs. 

PRFRO  reads  the  elevations  from  the  profile  file.  (See  also 
PRFWRT  which  writes  this  information  to  the  disk  file).  After 
being  read  from  disk,  the  elevation  values  are  put  into  the 
array  IA.  (See  also  the  POINT  Common  Area). 

PRFRD  is  used  for  the  contour,  line-of-sight  and  3-diinensional 
plots. 

(Drawings  1,2,9) 

SUBROUTINE  PRFRD(NPTS, IA) 

Parameters 

NPTS  -  Number  of  points  in  profile 

IA  -  Array  to  receive  the  elevations 

JPRFRD  is  almost  identical  to  PRFRD.  It  has  the  same  function  as 
PRFRD  and  is  the  version  used  for  the  perspective  and  radar 
terrain  mask  plots. 

(Drawings  7,8) 
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JPRFRT 


WPRFRT 


This  subroutine  retrieves  the  terrain  profiles  needed  by  the 
main  programs  before  plotting  can  be  done.  The  profiles  are 
either  created  by  swapping  to  "PROFL.SV"  or  obtained  from  a 
previously  created  file. 

The  user  is  asked  if  he  wants  to  use  an  existing  profile  file. 
If  so,  JPRFRT  opens  the  existing  file,  XXXX.PF,  and  checks  the 
file's  validity.  If  the  file  is  not  valid,  control  returns  to 
the  beginning  of  JPRFRT  and  the  user  may  try  another  file;  if 
valid,  JPRFRT  returns  control  to  the  main  program. 

If  the  user  chooses  to  create  a  new  profile  file,  JPRFRT 
requests  a  file  name  (See  PRFIL  Common  Area),  and  swaps  to 
"PROFL.SV"  which  computes  the  profiles.  Before  swapping,  the 
ICOM  array  is  filled  with  necessary  variables  from  the  Common 
blocks  and  is  written  to  block  0  of  the  disk  file  "SWPFL". 

This  information  is  subsequently  read  from  the  disk  and  used 
by  PROFL. 

(Drawings  2,3,4, 5) 

SUBROUTINE  PRFRT 
Parameters  -  none 

serves  the  same  purpose  as  JPRFRT.  It  is  a  slightly  different 
version  of  the  same  subroutine. 

CMAIN  uses  WPRFRT  and  the  other  main  programs  use  JPRFRT. 
(Drawing  1 ) 
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PRFWRT  This  subroutine  writes  the  elevations  of  points  along  a 

profile  into  the  profile  file.  This  information  is  retrieved 
later  by  subroutine  PRFRD  or  JPRFRD  which  read  from  this  file. 
PRFWRT  obtains  the  elevations  from  an  array,  IA.  (See  also 
the  POINT  Common  Area).  The  elevation  values  are  first  put 
into  a  buffer  array,  IPBUF,  which  is  written  to  a  block  of  the 
disk  file.  This  use  of  the  buffer  array  reduces  the  number  of 
writes  necessary. 

(Drawing  6) 

SUBROUTINE  PRFWRT(NPTS,IA,KK) 

Parameters 

NPTS  -  Number  of  points  in  the  elevation  array. 

IA  -  The  array  containing  elevations  of  the  points 

along  the  profi le. 

KK  -  A  flag  variable  which  indicates  the  last  time 
to  write  the  buffer  array  to  the  disk  file. 

PRINFT  prints  the  contents  of  a  feature  data  file  in  a  readable 

format.  The  contents  are  printed  on  the  Tektronix  terminal 
one  screen  at  a  time,  giving  the  user  the  opportunity  to  get  a 
hardcopy  of  a  particular  screen.  (See  MAINFT.ADDREC  and 
CHANGE  for  the  creation  and  modification  of  feature  data 
files). 

(Drawing  13) 

SUBROUTINE  PRINFT 
Parameters  -  none 
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PR  I  NR 


prints  on  the  Tektronix  terminal  the  contents  of  one  record  in 
a  feature  data  file.  (A  feature  data  file  contains  single 
point  and  boundary  records.  See  also  ADDREC  and  CHANGE). 
Boundary  records  contain  more  than  one  point.  PRINR  prints 
the  location  of  these  points  in  degrees,  minutes,  and  seconds 
(WGS  system)  or  as  a  mil  grid  value  (UTM  system). 

(Drawing  13) 

SUBROUTINE  PRINR ( INRPTS) 

Pa rameters 

INRPTS  -  The  number  of  points  used  for  the 
boundary. 

PROFL  is  the  main  program  involved  in  computing  terrain  profiles. 

It  is  swapped  to  from  the  main  programs,  CMAIN.LMAIN,  etc. 

(See  also  JPRFRT  and  WPRFRT). 

Before  profiles  are  computed,  PROFL  reads  block  0  of  the  disk 
file  "SWPFL "  (Swap  file),  and  puts  this  information  into  the 
Common  blocks.  It  then  calls  PTMN  to  get  the  profiles. 

The  profiles  are  written  to  a  disk  file  for  later  use.  (See 
PTMN,PRFWRT,PRFRO,  and  JPRFRD,  the  subroutines  involved  in 
reading  from  and  writing  to  this  file). 

(Drawings  1,2, 3, 4, 5, 6) 

Parameters  -  none 
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PRSBD 


This  subroutine  plots  boundary  type  feature  data  on  a 
perspective  plot. 

(Drawing  1 1 ) 


SUBROUTINE  PRSBD(RY,RX, ICODE) 

Parameters 

RY  -  Latitude  or  northing  of  boundary  point. 

RX  -  Longitude  or  easting  of  boundary  point. 

ICODE  -  Boundary  type  code.  (See  SPSYM  for  a 
description  of  ICOOE). 

PRSFT  plots  single  point  feature  data  on  a  perspective  plot.  Each 
point  not  hidden  by  terrain  features  is  plotted  along  with  its 
appropriate  military  symbol.  (See  SPSYM). 

(Drawi  ng  11) 

SUBROUTINE  PRSFT(RY,RX, ICOOE) 

Pa rameters 

RY  -  Latitude  or  northing  of  feature  point. 

RX  -  Longtidue  or  easting  of  feature  point. 

ICODE  -  Code  for  single  point  feature.  (See  SPSYM  for 
a  description  of  ICODE). 
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PRSLIN  plots  a  feature  line  between  2  positions  on  a  perspective 

plot.  PRSLIN  is  called  by  GRDPRS  which  draws  grid  lines  on  a 
perspective  plot  and  by  PRSBD  which  draws  boundary  type 
feature  data  on  the  plot. 

(Drawi  ng  1 1 ) 


SUBROUTINE  PRSLIN(IC,NC,P) 

Parameters 

IC  -  Two  dimensional  array  containing  the  profile 
numbers  for  the  2  positions. 

NC  -  Two  dimensional  array  containing  the  point 
numbers  for  the  2  positions. 

P  -  Array  containing  the  locations  of  the  2 
positions. 


P(1.D 

P(2,l) 

P(U2) 

P(2,2) 


X  coordinate 

Y  coordinate 
X  coordinate 

Y  coordinate 


(See  also  the  PRPT  Common  Area). 


89 


it 


PRSPLT 


PRSWP 


does  the  initial  plotting  for  the  perspective  plot  option.  It 
prints  a  title  on  the  plot  and  calculates  the  plot  length  and 
width  in  inches.  The  length  and  width  are  stored  in  a  disk 
file  for  later  use.  (See  also  PPARSM  and  PLOTB). 

(Drawing  7) 

SUBROUTINE  PRSPLT(PSI ,XLT) 

Parameters 

PSI  -  Angle  from  vertical  to  center  of  projection  (in 
radians) . 

XLT  -  Distance  from  observer  to  center  of  projection 
plane  (in  inches). 

PMAIN  uses  PRSWP  for  swapping  to  "PERSP.SV"  where  the 
perspective  view  plotting  is  done. 

Before  swapping,  PRSWP  fills  the  ICOM  array  (see  the  SWPCM 
Common  Area)  with  variables  from  relevant  Common  blocks  and 
writer  'e  array  to  block  0  of  the  disk  file  "SWPFL".  This 
information  is  subsequently  read  from  the  disk  by  PERSP  and 
used  in  drawing  the  plot. 

(Drawing  3) 

SUBROUTINE  PRSWP 
Parameters  -  none 


PSWAP 


This  subroutine  is  used  by  all  five  plot  types  to  swap  to 
"PLTRN.SV"  which  contains  the  routines  for  displaying  a  plot 
file  on  the  Tektronix  terminal  or  Versatec  plotter. 

Before  swapping,  PSWAP  fills  the  ICOM  array  with  variables 
from  the  Common  blocks  and  writes  this  information  to  block  0 
of  the  plot  file.  It  also  writes  a  final  block  to  this  file. 
(Drawings  1,2,7,8,9,11) 

SUBROUTINE  PSWAP 
Parameters  -  none 

PTCALC  calculates  the  screen  coordinates  of  a  location  (point) 
specified  by  which  profile  the  point  is  on  and  the  point 
number  along  that  profile.  It  is  used  by  the  subroutines 
whicn  plot  feature  data  on  a  perspective  or  3-diinensional 
plot.  PTCALC  uses  the  points  array  computed  previously  by 
PPLOT  or  TPLOT  to  obtain  these  coordinates.  (See  also  the 
PT8LK  Common  Area). 

(Drawi ng  1 1 ) 

SUBROUTINE  PTCALC(ISCAN,NPT,X,Y) 

Parameters 

ISCAN  -  Profile  number  for  location. 

NPT  -  Point  number  for  location. 

X,Y  -  Screen  coordinates  of  location. 
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PTMN 


PTRD 


1 


This  subroutine  gets  the  profiles  for  PROFL.  For  each  profile 
PTMN  calls  PTSDR  to  obtain  the  elevations  of  points  along  the 
profile  and  PRFWRT  to  write  these  elevations  into  the  profile 

file. 

For  each  of  the  five  plot  types,  PTMN  computes  the  correct 
inputs  to  PTSDR  and,  when  necessary,  calls  CNVTR  for  the 
proper  conversion  of  units. 

(Drawing  6) 

SUBROUTINE  PTMN 
Parameters  -  none 

This  subroutine  retrieves  information  previously  computed  by 
PPLOT  or  TPLOT  for  use  by  the  subroutines  which  plot  a  grid  or 
feature  data  on  a  perspective  or  3-dimensional  plot. 

This  information  consists  of  the  coordinates  of  points  along  a 
profile  and  is  obtained  by  PTRD  from  the  Points  file.  (See 
also  the  PT8LK  Common  Area). 

(Drawing  11 ) 


SUBROUTINE  PTRD 
Parameters  -  none 


PTS 


This  subroutine  obtains  elevations  of  points  along  a  profile 
which  does  not  have  constant  latitude  or  longitude.  This  type 
of  profile  occurs  in  the  1 ine-of -sight,  perspective,  and  radar 
terrain  mask  plots. 

PTS  obtains  the  elevation  of  each  point  along  a  profile  by 
calling  ALT  (if  a  polynomial  data  base)  or  NALT  (gridded  data 
base).  The  elevations  are  stored  in  an  array,  IB.  (See  also 
the  POINT  Common  Area). 

(Drawing  6) 


SUBROUTINE  PT$(XL,AZ, DELTA, NPTS) 

Parameters 

XL  -  Two  dimensional  array  containing  the  following 
values: 


AZ  - 
DELTA  - 
NPTS  - 


XL  ( 1 , 1 )  - 

Latitude  of  initial  profile 

point. 

XL (2,1)  - 

Longitude  of  initial  profile 

poi nt. 

XL ( I ,2)  - 

Latitude  of  final  profile  point. 

XL (2, 2)  - 

Longitude  of  final  profile 

point. 

Bearing  of  profile  in  radians. 

Spacing  between  elevation  points  in  meters. 

The  number  of  elevation  points  along  a  profile. 
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PTSDR 


PTSSEC 


This  subroutine  is  called  by  PTMN  to  obtain  the  elevations  of 
points  along  a  profile.  Depending  on  the  value  of  IFLAG,  it 
calls  either  PTS  or  PTSSEC  to  get  these  elevations.  The  IFLAG 
value  is  assigned  in  PTMN  depending  on  the  type  of  plot  being 
made. 

(Drawing  6) 

SUBROUTINE  PTSOR(IFLAG, XL, AZ, DELTA, NPTS). 

Parameters 

IFLAG  -  Flag  specifying  subroutine  to  call 

1  -  Call  PTS(XL,AZ, DELTA, NPTS) 

■2  -  Call  PTSSEC(XL.NPTS) 

(See  PTS  and  PTSSEC  for  descriptions  of  the  variables 

XL, AZ, DELTA  and  NPTS). 

This  subroutine  obtains  elevations  of  points  along  a  profile 
which  has  constant  latitude  or  longitude.  Profiles  of 
constant  latitude  or  longitude  occur  in  the  contour  plot  and 
the  3-dimensional  plot.  In  these  plot  types  the  profiles  are 
lines  parallel  to  plot  boundaries  which  are  input  by  the  user 
as  constant  latitude  and  longitude  values. 
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PTSSEC  obtains  the  elevation  of  each  point  along  a  profile  by 
calling  ALT  (if  a  polynomial  data  base)  or  NALT  (gridded  data 
base).  The  elevations  are  stored  in  an  array,  IE.  (See  also 
the  POINT  Common  Area). 

(Drawing  6) 

SUBROUTINE  PTSSEC(XL.NPTS) 

Pa rameters 

XL  -  Two  dimensional  array  containing  the  following 
values: 

XL(1,1)  Latitude  of  initial  profile  point. 

XL (2,1 )  Longitude  of  initial  profile  point. 

XL(1,2)  Latitude  of  final  profile  point. 
XL(2,2)  Longitude  of  final  profile  point. 

NPTS  -  The  number  of  elevation  points  along  a  profile. 

prints  on  the  Tektronix  screen  the  ridge  line  option 
previously  chosen  by  the  user  in  subroutine  PLTOPT.  The  ridge 
line  option  is  stored  in  the  variable  IRDGE  in  the  RIDGE 
Common  Area,  as  follows: 

IRDGE  =0  All  ridge  lines  will  not  be  plotted. 

IRDGE  =1  All  ridge  lines  will  be  plotted. 

PLTOPT  automatically  sets  IRDGE  =  1  for  the  range  lines  and 
range  lines  with  grid  plot  options.  For  the  other  plot 
options  (grid  lines,  contour  levels,  and  contour  levels  with 
grid),  the  user  specifies  whether  or  not  all  ridge  lines  are 
to  be  plotted. 

(Drawings  3,5) 

SUBROUTINE  RDGPRT 
Parameters  -  none 


RDHDFT 


RMAIN 


This  subroutine  reads  the  header  block  (block  0)  of  the 
feature  data  file.  It  is  called  by  DRIVFT  which  plots  feature 
data  on  the  contour  plot  or  radar  terrain  mask  plot. 

RDHDFT  also  computes  a  conversion  flag,  ICONV.  (See  also  the 
PLOTVR  Common  Area).  This  variable  specifies  the  type  of 
conversion  between  WGS  and  UTM  units  to  be  made  for  the 
feature  data  in  the  file,  as  follows: 


ICONV  Value 
0 
1 

-1 

(Drawing  12) 


Conversion 

None 

UTM  to  WGS 
WGS  to  UTM 


SUBROUTINE  RDHDFT(IBUF) 

Parameter 

IBUF  -  256  word  array  containing  information  from 

header  of  feature  data  file. 


is  the  main  program  for  the  radar  terrain  mask  plot. 
RMAIN  calls  the  subroutines  which  generate  and  display 
the  RTM  plot.  The  user  may  choose  from  the  following 
options: 

Safe  area  contours 
Acquisition  contours 
Safe  area  below  a  given  ceiling 
Fields  of  fire 

At  the  option  of  the  user,  corrections  for  the  earth's 
curvature  and/or  atmospheric  refractivity  may  be  made. 
Feature  data  points  can  also  be  plotted  on  the  radar 
terrain  mask. 

User  inputs  for  the  RTM  plot  are  made  in  subroutine 
INRTM.  (See  also  subroutines  DRIVFT  and  ERTOPT.) 
(Drawing  4) 

Parameters  -  none 
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stores  parameters  needed  to  draw  a  radar  terrain  mask 
plot  to  scale. 

(Drawing  8) 

SUBROUTINE  RPARSM(ZDIM.RLEN) 

Parameters 

ZDIM  =  the  larger  of  the  X  or  Y  plot  dimensions 
RLEN  -11.0 

RTMPLT  assigns  values  to  these  variables  before  calling 
RPARSM.  RPARSM  calls  PLOTB  which  stores  ZDIM  and  RLEN  in 
the  IPBUF  array;  when  this  array  is  full,  they  are 
written  to  the  plot  file. 

does  the  plotting  for  the  radar  terrain  mask  plot  as 
follows: 

1.  It  calls  RTMPLT  which  writes  the  title  and  relevant 
plot  parameters  on  the  plot. 

2.  It  calls  GRDRTM  if  a  grid  is  to  be  drawn  on  the 
plot. 

3.  If  feature  data  is  to  be  plotted,  RPLOT  cmputes  the 
values  of  the  variables  in  the  RTMPAR  Common  Area. 

4.  For  each  profile,  it  obtains  the  elevations  of 
points  along  the  profile  by  calling  JPRFRD,  which 
reads  this  information  from  the  profile  file. 

Based  on  this  information,  RPLOT  draws  the  type  of 
radar  terrain  mask  plot  specified  by  the  user  in 
INRTM,  i.e. ,  safe  area  contours,  acquisition 
contours,  etc. 

(Drawing  8) 

SUBROUTINE  RPLOT 
Parameters  -  none 


RTM  is  a  main  program  which  calls  the  subroutines  involved  in  the 

plotting  for  the  radar  terrain  mask  plot.  It  is  swapped  to 
from  RMAIN.  (See  also  subroutine  RTSWP). 

Before  plotting  is  done,  RTM  reads  necessary  information  from 
the  disk  file  "SWPFL"  and  from  the  profile  file.  It  then 
calls  RPLOT  to  perform  plotting  and  DRIVFT  if  feature  data  is 
to  be  plotted. 

Finally,  RTM  calls  PSWAP  which  swaps  to  the  plotting  programs 
in  "PLTRN.SV". 

(Drawings  4,8) 

Parameters  -  none 

RTMBD  plots  boundary  type  feature  data  on  the  radar  terrain  masking 
plot.  This  subroutine  is  called  by  PLBPFT. 

(Drawing  12) 

SUBROUTINE  RTMBD(RY,RX, ICODE) 

Parameters 

RY  -  Latitude  or  northing  of  boundary  point 

RX  -  Longitude  or  easting  of  boundary  point 

ICODE  -  Boundary  type  code.  (See  SPSYM  for  a 

description  of  ICODE). 
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RTMFT  plots  single  point  feature  data  on  the  radar  terrain  masking 
plot.  Each  point  inside  the  plot  boundaries  is  plotted  along 
with  its  appropriate  military  symbol.  (See  SPSYM). 

(Drawing  12) 

SUBROUTINE  RTMFT(RY,RX, I CODE) 

Parameters 

RY  -  Latitude  or  northing  of  boundary  point 

RX  -  Longitude  or  easting  of  boundary  point 

I CODE  -  Boundary  type  code 

RTMPLT  This  subroutine  does  the  initial  plotting  for  the  radar 

terrain  masking  plot  type.  The  title,  observer  data,  data  on 
the  area  to  be  covered,  and  the  contour  levels  are  written 
around  the  plotting  area.  The  observer's  coordinates  are 
determined  so  that  the  plot  is  centered  in  an  8  x  8  inch  area 
in  the  middle  of  the  Tektronix  screen. 

(Drawing  8) 

SUBROUTINE  RTMPLT(AZ,DAZ,SC) 

Parameters 

AZ  -  Bearing  in  radians  of  the  first  radial 

DAZ  -  The  spacing  in  radians  between  radials 

SC  -  The  plot  scale  to  be  used  for  all  plots 

(inches/meter) 
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RTSWP 


SCALFT 


For  the  radar  terrain  masking  plot,  RMA1N,  uses  subroutine 
RTSWP  for  swapping  to  "RTM.SV"  to  do  the  radar  terrain  mask 
plotting. 

Before  swapping,  RTSWP  fills  the  I COM  array  (See  SWPCM  Common 
Area)  with  variables  from  relevant  common  blocks  and  writes 
the  array  to  block  0  of  the  disk  file  "SWPFL".  This 
information  is  subsequently  read  from  the  disk  by  RTM  and  used 
in  drawing  the  plot. 

(Drawing  4) 

SUBROUTINE  RTSWP 
Parameters  -  none 

Although  it  is  still  in  the  code,  this  subroutine  is  obsolete 
and  should  be  removed.  It  is  called  by  DRIVFT  and  was 
originally  intended  to  compute  boundaries  for  the  3- 
dimensional  plot.  This  is  now  performed  by  SCALTH  in  program 
FTMAIN.  DRIVFT  is  now  used  only  for  contour  and  radar  terrain 
mask  plots. 

(Drawing  12) 

SUBROUTINE  SCALFT 
Parameters  -  none 


I 
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SCAIPR 


This  subroutine  calculates  the  parameters  needed  to  plot  grid 
lines  and  feature  data  on  perspective  plots.  (See  the  PARPRS 
Common  Area  for  a  description  of  these  parameters). 

(Drawing  11 ) 

SUBROUTINE  SCALPR 
Parameters  -  none 

SCALTH  calculates  the  parameters  needed  to  plot  grid  lines  on  three 
dimensional  view  plots.  These  parameters  depend  on  the  view 
face  chosen  by  the  user  in  INTHRD.  (See  also  the  CONTHR  and 
THRBLK  Common  Areas). 

(Drawing  1 1 ) 

SUBROUTINE  SCALTH 
Parameters  -  none 

SECOMS  This  subroutine  converts  a  latitude  or  longitude  in  signed 
seconds  into  degrees,  minutes,  seconds  and  direction. 

(Drawings  1 ,2,3,4,5,13) 

SUBROUTINE  SECDMS(K,XL,LUMS) 

Parameters 

K  -  Latitude  or  longitude  indicator 

1  -  Latitude 

2  -  Longitude 

XL  -  Latitude  or  longitude  in  signed  seconds 

LDMS(4)  -  Latitude  or  longitude  in  degrees,  minutes, 
seconds,  and  direction. 
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SETUP 


This  subroutine  asks  the  user  to  input  the  name  of  the  data 
base  file  and  also  the  feature  data  file  name  if  feature  data 
is  to  be  plotted.  The  main  plotting  programs, 
CMAIN,LMAIN,PMAIN,RMAIN  and  TMAIN  call  SETUP  before  additional 
user  inputs  are  made  in  other  subroutines. 

SETUP  also  requests  the  user  to  specify  whether  input  data 
will  be  in  the  WGS  or  mil  grid  system.  (See  the  UNITS  Common 
Area).  If  data  is  to  be  entered  in  mil  grid  units,  SETUP 
calls  MGSET. 

(Drawings  1,2, 3, 4, 5) 

SUBROUTINE  SETUP 
Parameters  -  none 

SODDIR  Given  the  geographic  location  of  a  reference  point,  azimuth 
angle,  and  a  distance  along  the  azimuth  to  a  second  nit, 
SODDIR  computes  the  geographic  position  of  the  secor  "int. 
(Drawing  6) 


SUBROUTINE  S0DDIR(XL,ALFAX,DISTX,PHI2,LAM2, IC) 


Parameters 

XL 

XL (1 )  Reference  point  latitude  (radians) 

XL(2)  Reference  point  longitude  (radians) 

ALPHAX 

The  azimuth  angle  (radians) 

DISTX 

Distance  from  the  reference  point  (meters) 

IC 

Specifies  the  type  of  units 

1  =  WGS 

2  =  Mi  1  Gri d 

PHI  2 

Latitude  of  new  point  (radians) 

LAM2 

Longitude  of  new  point  (radians) 
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SOD  I NV  uses  parameters  provided  by  INVM  to  calculate  the  azimuth  angle  and 
geodetic  distance  between  two  geographic  points.  This  calculation  is 
used  by  the  1 ine-of-si ght  plot  program,  LMAIN. 

(Drawing  2) 

SUBROUTINE  S00INV( A.B0.XLAT1 .XL0NG1 ,XLAT2,  XL0NG2,GEQDIS,AZ1 2.AZ21 ) 
Parameters  (All  are  double  precision  variables.) 


A 

= 

63781 350DO 

BO 

= 

6356750. 52D0 

XLAT1 

= 

Latitude  of  position  1 

XL0NG1 

= 

Longitude  of  position  1 

XL  AT  2 

= 

Latitude  of  position  2 

XL0NG2 

= 

Longtidue  of  position  2 

GEODIS 

= 

The  distance  in  meters 

AZ1  2 

= 

Forward  azimuth 

AZ21 

= 

Back  azimuth 

SPSYM  This  subroutine  is  used  to  plot  military  symbols  for  single  point 
feature  data.  These  symbols  can  be  drawn  on  all  plot  types  except 
1 ine-of-sight. 

(Drawings  11,12) 

SUBROUTINE  SPSYM(X,Y,HT,ICODE,IDES) 

Parameters 

X  and  Y  are  the  coordinates  abcut  which  the  symbol  is  centered. 


HT 

- 

Height  of  the  symbol. 

ICOOE 

- 

Symbol  Code  (See  below). 

IDES 

- 

Description  of  the  size  of  the  military  unit. 
(See  the  DESCRI  Common  Area). 

The  Unit  symbol  is  a  box,  which  is  filled  in  as  follows  according  to 
the  value  of  ICUOE: 

ICOOE  Military 

Value  Unit 

Infantry 
Field  Artillery 
Engineer 
Armor 

Urban  Area 

After  plotting  the  appropriate  military  unit  symbol,  SPSYM  calls 
SZPLOT  which  plots  the  unit  size  symbol  above  the  unit  symbol. 

SRCHFI  searches  a  feature  data  file  for  a  particular  record  and 

computes  the  location  of  the  record  within  the  file.  It  is 
used  by  the  programs  in  "MAINFT.SV"  for  creating  and  modifying 
feature  data  files. 

(Drawing  13) 

SUBROUTINE  SRCHF I ( IBIK.LSTBLK, IREC , IWD ) 

Parameters 


LSTBLK 

— 

number  of  the  last  block  in  the  feature 

data  file. 

IREC 

- 

record  in  the  file  to  search  for. 

1BLK 

- 

Block  number  where  record  begins. 

IWD 

- 

IBLK  where  record  begins. 

2 

3 

4 

5 
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STAT 


SZPLOT 


prints  out  the  statistics  on  the  use  of  the  data  base  by  the 
programs  which  compute  the  terrain  profiles.  This  information 
is  stored  in  the  PNTS  Common  Area  and  is  as  follows: 

1.  The  number  of  points  computed  from  the  disk  (i.e., 
data  base)  file. 

2.  The  number  of  points  requested  from  outside  the  data 
base. 

(Drawings  1,2, 3, 4, 5) 

SUBROUTINE  STAT 
Parameters  -  none 

This  subroutine  plots  the  Unit  size  symbol  above  the 
military  Unit  symbol  already  plotted  by  SPSYM  OR  UNPLT. 
(Drawings  11,12) 

SUBROUTINE  SZPLOT(XPT, YPT, IOES, WIDTH, THETA) 

Parameters 

XPT  and  YPT  are  the  coordinates  about  which  the 
size  symbol  is  centered. 

IDES  -  Description  of  the  size  of  a  military 
Unit.  (See  the  DESCRI  Common  Area). 
WIDTH  -  The  width  of  the  Unit  Symbol. 

THETA  -  The  angle  at  which  the  size  symbol 

will  be  drawn  on  the  plot  normally 
0.0  degrees). 
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THKPLT 


THMBPT 


This  subroutine  plots  a  line  of  specified  thickness 
between  two  points.  It  is  currently  used  in  drawing  the 
radar  terrain  mask  plot. 

(Drawing  8} 


SUBROUTINE  THKPLT(X1 ,Y1 ,X2,Y2,TH) 


Parameters 

XI 

X  coordinate  of  first  point 

Y1 

Y  coordinate  of  first  point 

X2  - 

X  coordinate  of  second  point 

Y2  - 

Y  coordinate  of  second  point 

TH  - 

Desired  thickness  of  line  in  inches. 

This  subroutine  is  used  in  the  process  of  digitizing  feature 
data.  Feature  data  can  be  digitized  (not  currently 
implemented)  or  input  by  typing  it  in  from  the  terminal.  (See 
the  programs  in  "MAINFT.SV"  for  creating  and  modifying  feature 
data  files).  THMBPT  turns  on  the  thumb  wheel  cursor  and  reads 
the  cursor  position  when  any  key  is  pressed. 

(Drawing  13) 

SUBROUTINE  THM8PT(ICHAR,IX,IY) 

Parameters 

IX  X  coordinate  of  cursor 

IY  -  Y  coordinate  of  cursor 

ICHAR  -  Code  for  the  key  that  was  pressed. 


THRBO  plots  boundary  type  feature  data  on  the  3-dimensional  plot 
type.  This  subroutine  is  called  by  DRFTTH. 

(Drawing  1 1 ) 

SUBROUTINE  THRBO (RY.RX, I CODE) 

Parameters 

RY  -  Latitude  or  northing  of  boundary  point 

RX  -  Longitude  or  easting  of  boundary  point 

ICOOE  -  Boundary  type  code.  (See  SPSYM  for  a 

description  of  ICODE). 

THREED  is  a  main  program  which  calls  the  subroutines  involved  in  the 
plotting  for  the  3-dimensional  plot.  It  is  swapped  to  from 
TMAIN.  (See  also  THSWP). 

Before  plotting  is  done,  THREED  reads  necessary  information 
from  the  disk  file  "SWPFL"  and  from  the  profile  file.  It  then 
calls  TPLOT  to  perform  plotting  and  calls  FTSWP  if  feature 
data  is  to  be  plotted. 

Finally,  THREED  calls  PSWAP  which  swaps  to  the  plotting 
programs  in  "PLTRN.SV". 

(Drawings  5,9) 

Parameters  -  none 


THRFT 


plots  single  point  feature  data  on  a  3-dimensional  plot.  Each 
point  not  hidden  by  terrain  features  is  plotted  along  with  its 
appropriate  military  symbol.  (See  SPSYM). 

(Drawing  11 ) 


SUBROUTINE  THRFT (RY,RX, ICUUE ) 


Parameters 

RY 

- 

Latitude  or  northing  of  feature 

poi nt. 

RX 

- 

Longitude  or  easting  of  feature 

point. 

ICOOE 

- 

Code  for  single  point  feature, 
for  a  description  of  ICODE). 

(See  SPSYM 

THRPLT  This  subroutine  does  initial  plotting  for  the  3-dimensional 
plot.  It  also  computes  the  plot  scale  and  the  angle  the 
projection  plane  makes  with  the  horizontal.  THRPLT  is  called 
by  subroutine  TPLOT. 

(Drawing  9} 

SUBROUT I NE  THRPLT ( XLTH , YLTH , SC , THETA ) 

Parameters 

XLTH  -  Length  of  boundary  parallel  to  projection  plane 
(meters). 

YLTH  -  Length  of  boundary  not  parallel  to  projection 
plane  (meters). 

SC  -  Plot  scale  in  inches  per  meter. 

THETA  -  Tilt  of  projection  plane  from  horizontal 
(radians). 
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THSWP 


TITLE 


TMAIN  uses  THSWP  for  swapping  to  “THREED.SV"  where  the  the  3- 
dimensional  view  plotting  is  done. 

Before  swapping,  THSWP  fills  the  ICOM  array  (See  SWPCM  Common 

Area)  with  variables  from  relevant  Common  blocks  and  writes 

the  array  to  block  0  of  the  disk  file  "SWPFL".  This 

information  is  subsequently  read  from  the  disk  by  THREED  and 

used  in  drawing  the  plot. 

(Drawing  5) 

SUBROUTINE  THSWP 
Parameters  -  none 

This  subroutine  prints  a  title  page  on  the  Tektronix  terminal 
at  the  beginning  of  each  run.  It  is  used  by  all  five  plot 
types. 

The  title  page  displays  information  about  the  data  base  file 
being  used  for  the  plot. 

(Drawings  1,2, 3, 4, 5) 

SUBROUTINE  TITLE 
Parameters  -  none 
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TMAIN 


is  the  main  program  for  the  3-dimensional  (oblique  view)  plot. 
An  oblique  view  is  a  projection  of  an  area  of  terrain  onto  a 
plane  with  the  profiles  parallel  to  each  other  but  not 
necessarily  perpendicular  to  the  plane.  The  plane  is  parallel 
to  the  closest  boundary  of  the  terrain.  TMAIN  calls 
subroutines  which  generate  the  3-dimensional  view.  The  user 
may  choose  from  the  following  plot  options: 

Grid  lines 

Range  lines 

Contour  levels 

Range  lines  with  grid  lines 

Contour  levels  with  grid  lines 

At  the  option  of  the  user,  corrections  for  the  earth's 
curvature  and/or  atmospheric  refractivity  may  be  made. 

Feature  data  points  can  also  be  plotted  on  the  3-dimensional 
view. 

User  inputs  for  the  3-dimensional  plot  are  made  in  subroutine 
INTHRD.  (See  also  subroutines  ERTOPT.FTMAIN,  and  PLTOPT.) 
(Drawing  5) 

Parameters  -  none 
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TPARSM 


TPLOT 


stores  parameters  in  the  plot  file  needed  to  draw  a  3- 
dimensional  plot  to  scale. 

(Drawing  9) 


SUBROUTINE  TPARSM(XLEN.SC) 

Parameters 

XLEN  -  Width  of  plot  (inches) 

SC  -  Plot  scale  (inches /meter) 

THRPLT  assigns  values  to  these  variables  before  calling 

TPARSM.  TPARSM  calls  PLOTB  which  stores  XLEN  and  SC  in  the 

IPBUF  array;  when  this  array  is  full,  they  are  written  to  the 

plot  file. 

does  the  plotting  for  the  3-dimensional  plot  as  follows: 

1.  It  calls  THRPLT  which  does  initial  plotting  and  computes 
the  plot  scale. 

2.  For  each  profile,  it  obtains  the  elevations  of  points 
along  the  profile  by  calling  PRFRD,  which  reads  the 
information  from  the  profile  file.  Based  on  this 
information,  TPLOT  computes  coordinates  of  each  point 
along  the  profile.  Points  which  are  hidden  by  terrain 
features  are  detected  so  that  these  will  not  be  drawn  on 
the  plot.  (See  also  the  HIDCM  Common  Area). 

3.  If  feature  data  or  a  grid  is  to  be  drawn  on  the  plot, 
TPLOT  writes  the  coordinates  of  the  points  to  the  Points 
File  for  later  use  by  the  subroutines  which  plot  the  grid 
or  feature  data. 

(Drawing  9) 

SUBROUTINE  TPLOT 

Parameters  -  none 
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UNPLT 


Note 


UTMPRT 


This  subroutine  plots  the  military  Unit  size  symbol  between 
two  boundary  points  (boundary  type  feature  data).  See  also 
SZPLOT  and  the  OESCRI  Common  Area. 

(Drawings  11,12) 

SUBROUTINE  UNPLT(PO.PN) 

Parameters 

PO  -  X,Y  coordinate  of  first  boundary  point. 

PN  -  X,Y  coordinate  of  second  boundary  point. 

UNPLT  is  not  currently  being  loaded  into  any  of  the 
executable  programs.  It  is  to  be  implemented  as  part  of 
the  feature  data  plotting  programs. 

converts  a  floating  point  number  into  an  alphanumeric  array  of 
length  NCHAR,  with  an  A1  format.  This  is  done  to  preserve  the 
precision  in  the  printing  of  large  floating  point  numbers. 
(Drawings  1,2, 3, 4, 5) 


SUBROUTINE  UTMPRT(UTM,IU, NCHAR) 


Parameters 

UTM 

- 

Floating  point  number 

NCHAR 

- 

Number  of  desired  characters  or  places  in 

number. 

IU 

- 

Alphanumeric  character  array. 

UTM2LL 


Thi s  subroutine  computes  the  geographic  coordinates  (latitude 
and  longitude)  of  a  point  whose  Universal  Transverse  Mercator 
(UTM)  coordinates  are  known.  UTM2LL  is  a  utility  type 
subroutine  used  by  all  five  plot  types.  (See  also  the  PARAM 
Common  Area). 

(Drawings  1,2,3,4,5,6,11,12) 


SUBROUTINE  UTM2LL(L,IH,XN0R,XEAST,IZ0NEi'LTS,XLNGS) 


Parameters 

L 

- 

Specifies  the  spheroid  to  be  used  in  the 

transformation  of  coordinates. 

IH 

1  =  Northern  Hemisphere 

2  =  Southern  Hemisphere 

XNOR 

- 

Is  the  northing  value  for  the  point. 

XEAST 

- 

Is  the  easting  value  for  the  point. 

I  ZONE 

- 

Gives  the  UTM  zone  number. 

XLTS 

- 

Is  the  latitude  of  the  point  in  signea 

seconds. 

XLNGS 

- 

Is  the  longitude  of  the  point  in  signed 

seconds. 

11.3 


UTM2MG 


Note: 


VCON 


This  subroutine  converts  a  UTM  value  to  a  mil  grid  value  that 
is  in  character  format.  It  is  used  by  programs  in  "MAINFT.SV" 
which  create  and  modify  feature  data  files. 

(Drawing  13) 

SUBROUTINE  UTM2MG ( UTMN ,UTME ) 

Parameters 

UTMN  -  UTM  Northing 
UTME  -  UTM  Easting 

The  output  from  this  subroutine  is  passed  through  Common 
Area  IMGCOM.  (See  the  IMGCOM  Common  Area). 

This  subroutine  plots  the  contour  levels  between  two  profiles 
on  perspective  and  3-0  plots  (See  subroutine  CUN  for  contour 
and  radar  terrain  mask  plots.) 

(Drawings  7,9) 

SUBROUTINE  CON(IX.IY.IZ.NPTS) 

Parameters 

IX, IY  are  256  x  2  arrays  of  X,Y  coordinates 
IZ  is  256  x  2  array  containg  the  2  coordinates  for 

a  profile.  This  array  is  obtained  from 
subroutine  PRFRD  (for  3-D  plots)  or  from 
subroutine  JPRFRD  (for  perspective  plots). 

NPTS  is  the  number  of  points  along  the  profile. 
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VPL2 


is  the  main  program  which  calls  the  routines  which  display  a 
plot  file  on  the  Versatec  plotter.  It  is  swapped  to  from 
"PLTRN. SV".  (See  V2SWP) . 

Before  the  plot  is  displayed,  VPL2  reads  block  0  of  the  disk 
file  "V2SFL"  and  initializes  variables  based  on  this 
information.  It  then  opens  either  the  permanent  plot  file  (if 
PLTRN  is  being  run  as  a  stand  alone  program)  or  the  temporary 
plot  file  "PLOTF"  (if  PLTRN  was  swapped  to  from  the  plotting 
programs). 

VPL2  then  reads  as  necessary  from  the  plot  file  and  calls  the 
appropriate  Versatec  plotting  routines. 

(Drawings  10,14) 

Parameters  -  none 

VPRMS  This  subroutine  sets  up  certain  parameters  needed  by  the 

Versatec  plotter.  It  computes  Versatec  scale  factors,  window 
limits,  etc.  PLTRN  calls  VPRMS  to  obtain  these  parameters 
before  swapping  to  the  Versatec  plotting  programs  in 
"VPL2.SV".  (See  also  the  VPR M  Common  Area). 

(Drawing  10) 

SUBROUTINE  VPRMS 
Parameters  -  none 
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V2SWP 


This  subroutine  is  used  to  swap  to  "VPL2.SV"  which  contains 
the  routines  for  displaying  a  plot  file  on  the  Versatec 
plotter. 

Before  swapping,  V2SWP  fills  the  ICOM  array  with  variables 
from  the  Common  blocks  and  writes  this  information  to  block  0 
of  the  disk  file  "V2SFL",  where  it  is  subsequently  read  and 
used  by  VPL2. 

(Drawing  10) 

SUBROUTINE  V2SWP 
Parameters  -  none 

WINDOW  This  subroutine  puts  a  user-defined  area  of  the  data  base  into 
core,  so  that  the  program  will  run  faster  when  accessing  that 
area  by  minimizing  disk  access.  Currently  this  process  is 
used  only  for  polynomial  data  bases. 

(Drawing  6) 

SUBROUTINE  WIND0W( IFLAG.XL) 

Parameters 

IFLAG  0  Contour  plot  or  3-D  plot- 

boundaries  are  of  cnstant 
latitude  and  longitude. 

1  =  RTM  plot  or  perspective  plot- 

boundaries  don’t  have  constant 
latitude  and  longitude,  so 
program  must  calculate  average 
positions. 

XL  -  4-element  array  holds  the  boundary 

coordinates  of  window. 


116 


CMAIN 


MQVEAA  PRFRT  again  npage  reset  back  pm 

O)  fie)  - rrjST  15i)  (22)  (23)  (24)  - 


111  I 

CLOSE  OPEN  ROBLK  MGSET 


at*se  MQV£AA  LL2UTM 


m 

I 


— 1 

UTMPRT 


SWAP  TO 
PROFL.  SV 


NP*GC  MGBOUN  DMSSEC  opb*  mqveaa  wrblk  close  PJJPRJ  UTM2LL  mcneka  CONPLT  open 

LL2UTM 


PLOTB 


AA  SEE  DRAWING  *6 
AAA  SEE  ORAWING#  12 
aaaa  SEE  DRAWING#  10 


MOVEKA 


MQVEAA 


NPAfiE  PLOT  CPARSM 

T  n- 

A  A 


CLOAD.SV 


MQVEKA  WRBLK  MOVE*  A  CLOSE  NPAGE  SWAP 


CONPLT  0PEN  PRFRD  ^EAA  CON  close 


SWAP  TO 
PLTRN.SV 


RDBLK  MOVE  A  A 


SYMBOL  PLOT 

r  t 

A  A 


PARSM  SYMBOL  NUMBER 


A  A 


FUNCTION 

INITIALIZE 

READ  IN  CONTOUR  INPUTS 
CALCULATE  PROFILE  ELEVATION 
RETRIEVE  PROFILES  AND  DO  PLOTTING 
OO  FEATURE  DATA  PLOTTING 
MAKE  COPIES  OF  PLOT 

COMPLETE  PLOT  FILE  ANO  SWAP  TO  WPLTRN.SV 
OPTION  TO  SAVE  THE  PLOT  FILE 

CONTINUE  FOR  ANOTHER  CONTOUR  PLOT, 

ELSE  STOP  PROGRAM 


2. 


LMAIN 


ov0f*  SETUP  .SffiflS  TITLE  Ettflp  INLOS  UTM2LL  INVM  PRFRT  Mafig*  PRFRD 

f)  - T-7S5T  tS(5)(7)  - P-7JTT  (ST  - r-rrr  - ?rr  - - T7=r  04  - TH9T 


OOttSCXJ 

(22) 


CLOSE  OPEN  ROBLK  |^IGSET 


(TlT  (12) 


SODINV 


ROBLK  MOt 


open  close  wrblk 


STAT 


ROBLK  MOVE**  NPKGE 


IUNPCK  ijovE**  LL2UTM  SECDMS  UTMPRT 


SWAP  TO 
JPROFL.SV 


^*05  DMSSEC  MGCORD  MOVE**  ERTQPT  ERTPRT  CL0SE  LL2UTM  UTM2LL  PLTSV 

“T1 


AA  SEE  DRAWING  *« 
AAA  SEE  DRAWING  *  10 


PLOTB 


WRBLK  MOVEKA  MOVE** 


DFILW  MOVE**  RB4AM 


LLQAD.SV 


LMAIN 


INVM  PRFRT  MQV.IAA  pRFRD  PMPRT  close  lOSPLT  iJSSI  LOSPRT  «*!1  “SL 
—  02)  — Tier  M  T  (17)  -  I  (16)  (ia)  I  (is)  “TW  (27> 


SODINV 


RD8LK  MOVEAA 


>se  |  wrblk  I STAT  Swap 

MOVEAA  NPAGE 

SWAP  TO 
JPROFL.SV 


OPEN  |  MOVEAA  j  CLOSE 
_ _  RDBLK  WRBLK 


close  LL2UTM  UTM2LL  PLTSV  |  0PEN  |  **«*  LFARSM  |  Sp  |  PSWAP  |  svmbol 

ERTPLT  COPSM  1  NUMI*g 


f— w  ivivi  |  —  . 

DASH  * 

a 


OFILW  MOVEAA  RENAME 


MOVEAA 


SYMBOL 


MO  VEKA  WfiBLK  MOVEAA  CLOSE  NPAGE  SWAP 

SWAP  TO 
PLTRN.SV 


EUMCTIQN 

1-6  initialize  and  write  title 

7-9  READ  IN  LO.S.  INPUTS 

10-12  CALCULATE  DISTANCE  AND  BEARING 

13-16  CALCULATE  PROFILE  ELEVATIONS 

17-  IB  RETRIEVE  PROFILE 

0-21  PRINT  TABLE  OF  ELEVATIONS 

22  23  PLOT  LINE  OF  SIGHT  PROFILE 

24-27  CONTINUE  FOR  ANOTHER  LO.S. 

PLOT  ELSE  STOP  PROGRAM 


OVERLAY  USED  (LLOAO.OL) 
«-  PLTOL.TITOL 
•*-  ILSOL 
«*-  INVOL 

«-  PRFOL 

// 

•—  LPROL 
■*-  LPLOL 


PMAIN 


OVOPN 

0) 


SETUP  SSS  T,TLE  EB££m 

TST  (3,&<®  — H3T  ™ 


OPEN  CLOSE  ROBLK  MGSET 


INPRS  “pyg*.*  PRFRT 

(Sj  * - 


IUN 


PCK  n^ge  move**  LL2UTM 


ISET 


UTMPPT 


SECDMS 


NPA& 


DMSSEC 


MGCORD  PLTDPT 


ERTOPT 


MOVE A* 


T8T 


OPEN 


(to) 


close 


WRBLK 


ROBLK  MOVE  A  A  NPA 


RDGPRT 


o«n  PLTPRT  ERTPRT  close 


WRBLK 


LL2UTM 


UTM2LI 


A  SEE  DRAWING  «  6 
A  A  SEE  DRAWING  #  7 


FUNCTION 

1-4 

INITIALIZE  AND  WRITE  TIT 

5-7 

READ  IN  PERSPECTIVE  VI 

8-H 

CALCULATE  PROFILE  ELEV 

12 

RETRIEVE  PROFILES  AND 

PLOADoSV 

13- 16 

continue  for  another 

PLOT,  ELSE  STOP  PfiOl 

3 

I 


I 


PMAIN 


TO 


(91  - 

i  i  i 

T05 

n 

OPEN  | 

close 

WRBLK 

STAT 

PM  P 


5  “S  ^  PRSW  -n 


Rdblk  mqveaa  npage  SWAP  rdblk  wrblk 


SWAP  TO 
PROFL.SV 


CLOSE  MQVEAA  OPEN  P|_J$V  NPAGE  WRBLK  SWAP 


f>RT 


WRBLK 


LL2UTM 


ERTPRT  close  UTM2LL 


dfilw  mqveaa  rename 


SWAP  10 
PERSP.SV 


l _ _ 

■HJTINE  » 

FUNCTION 

OVERLAY  USED  (PlOAD.Oi'l 

1-4 

INITIALIZE  and  WRITE  TITLE 

«—  TITOL 

S-7 

READ  IN  PERSPECTIVE  VIEW  INPUTS 

<—  IPROL 

6-1 1 

CALCULATE  PROFILE  ELEVATIONS 

*—  PRFOL 

12 

RETRIEVE  PROFILES  AND  00  PLOTTING 

13-16 

CONTINUE  FOR  ANOTHER  PERSPECTIVE 

PLOT,  ELSE  STOP  PROGRAM 

ovopn  SETUP  gggo  TITLE  ESCeed  INRTM  «2y|^ 


OVOPN  SF1 

/I)  ot- 

[up 

(2) 

OPEN  CLOSE  RDBLK  MGSET 


IUN 


73] 


m 


PCK  !*e*g£  MQyeA*  LL2UTM  SECDMS  UTMPRT 


ISET 


76] 


(9) 


PRFRT 

13] 


OPEN 


CLOSE 


WR8LK 


SWAP 


OPEN 


I 

NPA?t 

1 

STAT 

SWAP 

PROF 

3  TO 
:L.SV 

npaoe  MGCORD  D  MS  SEC  ERTOPT  open  moveaa  PlTPRT  wbblk  Close  ERTPRT  LL2U1 


close  moveaa  open 


A  SEE  DRAWING  «6 
A  A  SEE  DRAWING'S 


1 


SUBROUTINE'  FUNCTION 


1-4  INITIALIZE  AND  WRITE  1 

5-7  READ  IN  RADAR  TERRAI 

611  CALCULATE  PROFILE  6 

12  RETRIEVE  PROFILES  AN 

13-16  CONTINUE  FOR  ANOTH 

MASK  PLOT,  ELSE  3 


RLOAD.SV 


PRFRT 

Tlic5 


PMPRT 


RTSWP 

T7i2) 


6£  RESET  BACK 
P  05)  (16) 


WRBLK  SWAP  OPEN  MOVEAA  CLOSE 


NPAOE  STAT  ROBLK  WRBLK 


SWAP  TO 
PROFL.SV 


LK  close  ERTPRT  LL2UTM  UTM2LL 


CLOSE  MQVEAA  OPEN  SWAP  WRBLK  NPAOE  PLTSV 

SWAP  TO  |  I  | 

RTM.SV  OFILW  MOVEAA  RENAME 


FUNCTION 

initialize  and  WRITE  TITLE 
REAO  IN  RAOAR  TERRAIN  INPUTS 
CALCULATE  PROFILE  ELEVATIONS 
RETRIEVE  PROFILES  ANO  DO  PLOTTING 
CONTINUE  FOR  ANOTHER  RAOAR  TERRAIN 
MASK  PLOT,  ELSE  STOP  PROGRAM 


OVERLAY  USED  (BLOAD^OL 

«*-  TITOL 
*—  IRTOL 
«—  PRFOL 


TLCAD.SV 


SUBROUTINE  * 


1-6 

7-9 

0-0 

14 

«•» 


FUNCTION 

INITIALIZE  AND  WRITE 
READ  IN  3 -DIMENSION/ 
CALCULATE  PROFILE  I 
RETRIEVE  PROFILES  AM 
CONTINUE  FOR  AN0T1 
PLOT,  ELSE  STOP  t4 


OVOPN 

(to) 


FOPEN  OPEN  PDBLK  DT 

(I)  12)  IB)  (3)  — 


OPEN  CNVTR  POBLK  mqveaa  ovlod 

00  (12)  (13) 


PTSDR 


LL2UTM  UTM2LL 


W) 


moveka  SODDIR 
Hs5 


PTSSEC 


ALT  SODDIR  NALT  NALT  ALT 

i  ^  t 


j  BDBLK  RDBLK  | 

mqveaa  iunpck  movCKA  bdblk  mqveaa  hjnpcK  MQva| 


ISET 


ISET 


A  FROM  DRAWINGS  #  1, 2,3, 4.5 


TSDR  MoyiS*  SODDIR  WBBLK  WINDOW 


ALT  NALT  MQvek*  ALT 

FT 

Mlk  roblk 


MQVEAA  fljfvpc  K  asm*  RD8LK 


CLOSE  PRFWRT  i*zchk 


MQVEAA  WBBLK  MOV&A 


Routine* 

FUNCTION 

OVERLAY  USED 

1-7 

OPEN  SWAP  FILE  AND  READ  HEADER 

a 

OPEN  PROFILE  FILE 

9 

EXTRACT  PROFILES 

10-0 

RE  AO  HEADER  OF  DATA  BASE  FILE 

FOR  EACH  PLOT  TYPE 

(jprofl  ,ol) 

a 

LOAD  APPROPRIATE  OVERLAYS 

M 

COORDINATE  CONVERSIONS 

CVT0L 

IS 

COORDINATE  TRANSFORMATIONS 

16 

USE  CORE  FOR  GREATER  SPEED 

«—  WNDOL 

17 

OBTAIN  ELEVATIONS  OF  POINTS  ALONG  PROFILES 

*-  PTSOL 

ia 

WRITE  PROFILE  ELEVATIONS  ONTO  DISK 

R-20 

RETURN  TO  CALLING  PROGRAM 

PERSP 


OPEN  p  TS\A/P 


RDBLK  MOVE  AA 
(2)  05)  C3-I2)(2l) 


PPLOT 

1  07) 


MOVE AA  WRBLK  CLOSE  SWAP  OPEN  RDBLK 

SWAP  TO 
FTMAIN.SV 

AAA 


cops 

n 


PRSPLT  “oyiS*  PRFRD  number  HID 


PPARSM  symbol  number  rdblk  mqveaa 


a  A 


MQVEKA  WRBLK 


AA 

AAA 

aaaa 


PERSP.  SV 


SUBROUTINE  * 

FUNCTION 

1-2 

OPEN  AND  READ  SWAP  FILE 

3-13 

MOVE  header  info  into  a 

14-15 

OPEN  READ  HEADER  BLOCK  ( 

16 

CHECK  IF  FEATURE  DATA,  01 

17 

perform  plotting 

Id 

if  DESIRED,  SWAP  TO  f  TMAIK 

19-22 

FINISH  PLOTTING  AND  SWM 

23  24 

RETURN  TO  MAIN  PROGRM 
1 

t 


PLOTB 


AA  FROM  DRAWING'S 
AAA  SEE  DRAWING  *11 
AAA  A  SEE  DRAWING  *  10 


WRBLK 


MOVEKA 


MOVEAA 


1-2  OPEN  AND  READ  SWAP  FILE 

3-13  MOVE  HEADER  INFO  INTO  COMMON  BLOCKS 

14-15  OPEN  ( READ  HEADER  BLOCK  OF  PROFILE  FILE 

M  CHECK  IF  FEATURE  DATA,  GRID  LINES  TO  BE  PLOTTED 

17  PERFORM  plotting 

15  IF  DESWEO, SWAP  TO  f TWAIN. SV 

«-22  FINISH  PLOTTING  AND  SWAP  TO  WPITRN.SV 

23-24  RETURN  TO  MAIN  PROGRAM  (PLOAD.SV) 


OVOPN 

(I) 


OPEN  RDBLK 
(2#S)(l7)  (3)06) 


MOVE  A  A 
(4-0)05) 


CLOSE 

(14) 


MOVEKA 

(16) 


RPLOT  DRIVFT 

rw)  722) 


MOVEKA 


PRFRD  ap  5«ov|aa  rtmplT  THKPLT 

A 


t 

.OTB 


RDBLK  MOVEAA 


>VEAA  MOVEKA 


ERTPLT  wwgw  RPARSM  Bi=Si  sy 


SYMBOL 


SUBROUTINE  « 


RTM.SV 


FUNCTION 


open  overlay  file 

OPEN  ANO  READ  SWAP  FI 
MOVE  HEADER  INFO.  INTO 
OPEN,  READ  HEADER  BU 
PERFORM  PLOTTING 
PERFORM  FEATURE  OAT* 
FINISH  PLOTTING  ANO  SWl 
RETURN  TO  MAIN  PGOGM 


«{gj?  RPLOT  DRIVFT 

(l9)(2rt  — [“56)  rga)  (23) 


COP 


«SfT,  PSWAP  “*CK. 

(27)  - r-KSx  <26) 


MOVEKA  WRBLK  MOVEAA  SWAP  CLOSE  NPAGE 

SWAP  TO 
PLTRN.SV 
oooo 


MgvEA*  RTMPLT  THKPLT  CON  symbol  GRDRTM  numbb> 


PLOT  SYMBOL  plot  IA2CHK 


TT  T 


_T  number  RPARSM  BjOI  syja 


plot  symbol 


66  FROM  DRAWING* 4 
006  SEE  DRAWWG  *12 
6066  SEE  DRAWING*© 


FUNCTION 

OPEN  OVERLAY  FILE 

OPEN  AND  READ  SWAP  FILE 

MOVE  HEADER  INFO.  INTO  COMMON  BLOCKS 

OPEN,  READ  HEADER  BLOCK  OF  PROFILE  FILE 

PERFORM  PLOTTING 

PERFORM  FEATURE  DATA  PLOTTING 

FINISH  PLOTTING  ANO  SWAP  TO  WPLTRN.SV 

RETURN  TO  MAIN  PROGRAM  (RLOAD.SV) 


OVERLAY  USED  (WRTM.QL) 


I 


I  1  1  I  I  I  II 

THRPLT  0PEN  "SM**  PRFRD  mqy«a  HIDDEN  wBB*-k  CON 

~ I  ~~ 1  T  -T~  T 


TFftRSM  symbol  rdblk  moveaa  MOVE  HA  WfiBLK  set  RDBLK  PLOT 


&  c 


SUBROUTINE** 

FUNCTION 

1-2 

OPEN  AND  READ  SWAP  F 

J-12 

MOVE  XAOER  NFO  INTC 

ij-l* 

OPEN,  RE  AO  HEADER  BLO 

15 

CHECK  IF  FEATURE  LMC 

•6 

PERFORM  PLOTTIN6 

17 

IF  OES1REO  SWAP  TO 

lft-21 

FINISH  plottmo  AND  9 

22-23 

RETURN  TO  MAIN  PROQI 

THREED.SV 


THREED 


CLOSE  BESET  PSWAP  BACK 
02)  (22)  (23) 


MQvEkA  WR8LK  MOVE**  SWAP  CLOSE  NPAGE 

SWAP  TO 
PLTRN.SV 

AAAA 


ESf  HIPOEN  "***  CON 


WRBLK  ISET  boblk 


QjSI  SajSQL 


023  FROM  DRAWING*  5 

AAA  SEE  DRAWING  Ml 

A  AAA  SEE  DRAWING  «© 


WBBLK 


MOCK &  »SVfM 


DunNE*  FUNCTION 


OPEN  AND  READ  SWAP  FILE 

MOVE  HEADER  UFO  INTO  COMMON  BLOCKS 

OPEN,  BEAD  HEADER  BLOCK  OF  PROFILE  FILE 

CHECK  IF  FEATURE  LUES,  GRID  DATA  TO  BE  PLOTTED 

PERFORM  PLOTTING 

*  DESIRED  SWAP  TO  FTMAIN.SV 

FINISH  PLOTTING  AND  SWAP  TO  WPLTRN.SV 

RETURN  TO  MAIN  PROGRAM  (TLOAO.SV) 


I 


5L|  TO  PU 

f''75  (16)00) 


PLTRN.SV 


SUBROUTINE# 

FUNCTION 

1 

INITIALIZE  AND  ENTER  Ol 

2-3 

READ  HEADER  OF  *PLQTF' 

4-6 

CLOSE  AND  DELETE  "PI 
ENTER  NAME  FOR  PEI 

7- 13 

READ  HEADER  OF  PERMAI 

14-17 

DO  PLOT  TNG  ON  TEKT 

16-21 

SWAP  TO  veasatec  PLOT 

22  23 

RETURN  TO  CALLING  P*K 

AAAA 


A  SEE  DRAWNG«S 

AA  SEE  DRAWING** 

AAA  SEE  DRAWING** 

A  AAA  FROM  ORAWINCS*  1,2,7, 0,9 


if  FUNCTION 

INITIALIZE  ANO  ENTER  OUTPUT  OPTION 

READ  HEADER  OF  "PLOTF"  (TEMPORARY  PLOT  FILE) 

CLOSE  AND  DELETE  "PLOTF 'AND 

ENTER  NAME  FOR  PERMANENT  PLOT  FILE 
READ  HEADER  OF  PERMANENT  PLOT  FILE 
DO  PLOTTING  ON  TEKTRONICS  SCREEN 
SWAP  TO  VERSATEC  PLOTTING  ROUTINE,  VPL2.SV 
RETURN  TO  CALL  MG  PROGRAM 


OVERLAY  USED  (WPLTRN.OL) 


«—  PL  POL 
*—  PLT0L,PL20L 
*—  VPROL 


< 


) 


AAAA 

FTMAIN 


GRDTHR  <m  mm  DRFTTH  SCALTH  wopn  SCALPR 

- r-j-r-  mro  ( 2) (©)  (3-7)  - r75?r  - 7zr  - nsr 


A 

I 

PTCALC 


PTRD 


THRFT  BD6L*  FTOPEN  UTM2LL  LL2UTM  THRBD 


A08LK  MOVE** 


OPEN  ROBLK 


SPSYM  AA  A  CALCTH 


CALCTH  EJfll  A  AA  S£4*9fi 

AAA 


i 


PRSFT  0PfN 


PLOTB 


ROBLK  MOVE**  MOVEKA  WR6LK  SET  RDBLK  WRBLK  MOVEK*  MOVE** 

AAAA  FROM  DRAWINGS*  7, 9 


AA  CALCPR  A  SPSYM 


FTMAIN  .SV 


FUNCTION 

1-2 

OPEN  POINT  FILE 

3-a 

FILL  COMMON  BLOCKS 

10-12 

OPEN  OVERLAY  RLE  ANO 

13 

OPEN  PLOT  BUFFER  FILE 

14-6 

DETERMINE  PLOT  CONSfl 

£-19 

IF  DESIRED,  PLOT  GRID 

20-23 

IF  DESIRED,  PLOT  FEATUl 

24-2B 

RETURN  TO  CALLING  PI 

IF  DESIRED.  PLOT  FEATURE  DATA 
RETURN  TO  CALLING  PROGRAM 


gthol  OR  GPROL 
ftmol  or  fprol 


DRIVFT 


WRBLK 


MOVEKA 


MAINFT.  SV 


AAA  FROM  DRAWING*  >0 


vector  wpuxrs 


DWRtTE  DWAIT 


TEKTRONICS  FURNISHED  ROUTINES 
NUMBER /SYMBOL/ 

PLOT 


hevcot  toutpt 


LVLCHT  VECMOO  V2ST  XYCNVT  ALFMOO  MOVAS3  T$  BO 


TOUTPT 


TOUTST 


VECMOO  XYCNVT 


TOUTPT 


PLTCHB  TOUTST 


TOUTST 


IP  T  PCUPT  VECMOO  WINCOT  XYCNVT 


TOUTPT 


FROM  0AAWM640 


BUFFPK 


ADKKJT  PITCHP 


HDCOPY 


ERASE 


ALFMOO  CWSEND  MOVABS  PNTMOO 


r 

ALFA 

I 

TOU1 

I 

TOU1 

I 

a 


PL2 


L 


IDENTIFIER  FILE  TYPE 


-  .08 

-  .FD 

-  .PF 

-  .PL 

-  .PM 
"PNTFL" 
"SWPFL" 
"SYMFL11 
"V2SFL" 


Data  Base  fi les 
Feature  Data  files 
Profile  files 
Plot  files 
Parameter  files 
Hidden  Point  File 
Swap  fi le 

Tektronix  Symbol  file 
Versatec  Swap  file 


PRIMARILY  USED  BY: 

(C,P,R,L,T)LOAD 
FTMAIN,MAINFT,DRI VFT 
PROFL 
PLTRN 

DOPARM.PLOTPM 

PERSP.THREED.FTMAIN 

ALL 

PLTRN 

VPL2 


Unit  Ho. 

and 

File  Name 

Opened 

Closed 

Read  From 

Written  To 

22.3 

PTMN 

SETUP 

PTMN  block  0 

NONE 

DATA  BASE 

SETUP 

NALT 

FILE 

PROFL 

WINDOW 

.DB 

SETUP  block  0 

NALT 

1.26 

.FD 

FEATURE 

DATA 

FILE 

MAINFT 

ORIVFT 

ORFTPR 

FFTOPEN 

MAINFT 

MAINFT 

ADDREC 

CHANGE 

PRINFT 

SRCHFI 

DRFTTH 

DRIVFT 

ROHDFT  block  0 

FTOPEN  block  0 

DRFTPR 

MAINFT 

ADDREC 

CHANGE 

21 

PERSP 

CPLOT 

PERSP  block  0 

PTMN  block  0 

PROFILE 

PROFL 

PRSWP 

RTM 

PRFWRT 

FILE 

RTM 

RTSWP 

THREED  block  0 

.PF 

THREED 

LMAIN 

PRFRD 

JPRFRT 

THSWP 

PRFRD 

WPRFRT 

PTMN 

JPRFRT  block  0 

PRFRT 

WFRFRT  block  0 
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Written  To 


Unit  No. 


and 

File  Name 

Opened 

Closed 

Read  From 

CPLOT 

VPL2 

VPL2 

4b 

“PlQTF* 

PLTRN 

PLTRN 

PLTRN  block  0 

•  PL 

FTMAIN 

FTSWP 

PL2 

PLOT 

VPL2 

PL  2 

VPRMS 

FILE 

PLTRN 

PSWAP 

RTM 

"PLQTF"  deleted 

TP  LOT 

or  renamed  in 

FTSWP 

PLTSV 

LOSPLT 

PPLOT 

44 

"PLPARM" 

.PM 

PARAMETER 

FILE 


plotpm 

PLOTPM 

PLOTPM 

INCON 

INCON 

PMPRT 

INLOS 

INLOS 

WPRFRT 

INPRS 

INRTM 

INRTM 

INTHRD 

INTHRD 

PMPRT 

PMPRT 

WPMPRT 

"PLPARM" 

deleted  or 

renamed  in 

PLTSV 
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I 


PLOTS 

PSWAP 


INCON 

INLOS 

INPRS 

INRTM 

INTHRD 

PMPRT 

PRFRT 


Unit  No. 
and 


File  name 

Opened 

Cl  osed 

Read  Front 

Written  To 

33 

PERSP 

FTSNP 

FTMAIN 

FTMAINI 

"PNTFL* 

FTMAIN 

PTRO 

FTSHP 

POINT 

THREEO 

FTSNP 

HIDDEN 

FILE 

FTSHP 

HIDDEN 

PPLOT 

TPLOT 

38,23 

PRSNP 

PRSNP 

PERSP 

PRSWP 

"SWPFL" 

RTSHP 

RTSHP 

RTM 

RTSHP 

SNAP 

THSHP 

THSHP 

THREED 

THSHP 

FILE 

PERSP 

PERSP 

PROFL 

JPRFRT 

RTM 

RTM 

HPRFRT 

THREED 

THREEO 

PROFL 

JPRFRT 

JPRFRT 

NPRFRT 

WPRFRT 

25 

SYMBOL 

SYMBOL 

SYMBOL 

NONE 

"SYMFL" 

TEKTRONIX 

SYMBOL 

FILE 


42  VPL2  NONE  VPL2  block  0  V2SWP  block 

"V2SFL“ 

VERSATEC 

SNAP 

FILE 
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SWAP  FILE 
"SWPFL" 


LUN:  38,23 

READ  BY:  PROFL,PERSP,RTM, THREED 

WRITTEN  TO:  JPRFRT.WPRFRT.PRSWP.RTSWP.THSWP 


PURPOSE:  File  is  loaded  up  with  all  the  necessary  parameters  that  need 
to  be  passed  between  main  programs  that  SWAP  to  other 
executables  for  further  processing. 


STRUCTURE: 

Swap  between 

(CLOAC ,PL0A0,RL0AD .LLOAD.TLOAD)  and  PROFL 

Words 

Variable 

Type  Contains 

1-4 

INTEGER 

File  name  of  profile  file 
(.PF) 

5-8 

INTEGER 

File  name  of  data  base  file 

(•OB) 

9-42 

INTEGER 

I PRF (32)  -  see  common 

PRFCM.  This  area  is  filled 

with  data  from  previous  .PF 

file  if  used. 

43 

INTEGER 

IDATA  -  see  common  UNITS 

44 

INTEGER 

INPUT  -  see  common  UNITS 

45 

INTEGER 

INCGV  -  see  common  UNITS 

46 

INTEGER 

ISPHER  -  see  common  PARAM 

47 

INTEGER 

IH  -  see  common  PARAM 

48 

INTEGER 

IZONE  -  see  common  PARAM 

49-50 

REAL 

REAST  -  see  common  PARAM 

51-52 

REAL 

RNORTH  -  see  common  PARAM 
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Swap  between  PLOAD  and  WPERSP,  RLOAD  and  WRTM 


1 


Words 


Contains 


1-4 

Prof i le  file  name 

5-8 

Data  base  file  name 

9-10 

Common 

PNTS 

11-12 

Common 

FAC 

13-15 

Common 

EARTH 

16 

Common 

GRQBLK 

17 

Common 

RIDGE 

18-40 

Common 

CONT 

41-70 

Common 

PRS8LK, RTMBLK, THR8LK 

71-74 

Common 

UNITS 

75-80 

Common 

PARAM 

81-85 

Common 

FDFIL 

86-89 

Common 

LOCUTM 
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DATA  BASE  FILES 
(.DB) 


LUN:  22 
OPENED  BY: 
CLOSED  BY: 
READ  BY: 
WRITTEN  TO: 


SETUP, PTMN 
SETUP 

PTMN , NALT , ALT ,W I NDOW , SETUP 
NONE 


PURPOSE:  Primary  input  file  for  FEED  programs.  Contains  the 
topographic  data  for  a  geographic  region. 


STRUCTURE: 

Header  Block-256  words 

Words 

Variable  Type 

Contains 

1-2 

REAL 

Southern  Most  Latitude 

(in  seconds) 

(Pos  =  N) 

(neg  =  S) 

3-4 

REAL 

Northern  Most  Latitude 

(in  seconds) 

(Pos  =  N) 

(neg  =  S) 

5-6 

REAL 

Western  Most  Longitude 

(in  seconds) 

(Pos  =  E) 

(neg  =  W) 

7-8 

REAL 

Eastern  Most  longitude 

(in  seconds) 

(Pos  =  E) 

(neg  =  W) 

9 

INTEGER 

X  Cel  1  size  (in 
seconds) 

10 

INTEGER 

Y  Cel  1  Size  (in 
seconds) 

11 

INTEGER 

Number  of  cells  per 

row 


1 A  3 


12 

INTEGER 

Number  of  rows 

13 

INTEGER 

Number  of  Dytes  per 

block 

14 

INTEGER 

Start  position  of  data 

for  region  I. 

15-29 

Identifying  information  for 
Region  2  (same  as  words  1-14) 

30-44 

Identifying  information  for 
Region  3 

45-59 

Identifying  information  for 
Region  4 

60-74 

Identifying  information  for 

1 

1 

Region  5 

1 

1 

1 

253 

INTEGER 

l 

Indicates  whether  data  base 

coordinates  are  WGS  or  UTM. 

254-256 

Empty 

Body  of  file  follows: 


257 

INTEGER 

Elevation 

for 

Cell 

1,1 

253 

INTEGER 

Elevation 

for 

Cell 

1,2 

259 

li 

INTEGER 

tl 

Elevation 

ii 

for 

Cel  1 

1,3 

II 

etc. 

II 

etc. 

t< 

etc. 
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USE:  SETUP  reads  in  the  header  block.  Tests  word  11  for  length  of  data 
base  (if  0,  then  file  is  empty)  and  word  253  for  type  of 
coordinates  stored  in  header  (1  =  WGS,  2  =  UTM) 

PTMN  reads  in  the  header  for  the  sole  purpose  of  loading  up 
COMMON/ I NDEX/MASTER.  Although  the  integer  array  containing  the 
header  (MASTER)  is  equivalent  to  a  real  array  XMAS,  XMAS  is  never 
used  in  this  program. 

WINDOW  reads  a  portion  of  the  polynominal  data  base  (up  to  2000 
words)  into  core  so  that  further  processing  will  be  faster. 

ALT  reads  in  the  elevations  for  lat/lon  locations  from  polynomial 
data  base. 

NALT  reads  in  the  elevations  for  lat/lon  location  from  gridded  data 
base. 
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PROFILE  FILE 

(.PF) 


LUN:  21 

REAO  BY: 
WRITTEN 

PURPOSE: 

STRUCTURE 


PERSP.RTM.THREED, ( )RFRD,PRFRD, ( )RFRT, ( )RFRT 
TO:  PTMN,PRFWRT 

Contains  the  terrain  profiles  extracted  from  the  data  base  by  PROFL. 

The  profiles  are  processed  and  plotted  by  each  of  the  primary  FEED 

programs. 

:  Header  Block  -  256  bytes 

Words  Contains 

1-4  Profi le  File  name 

5-8  Data  Base  File  Name 

9-10  [ALT.ICOUNT  -  see  common  PNTS 

1 1  Empty 

12  ITYPE  -  which  program  created  this  profile  file  - 

(1  =  LLOAD,  2  =  RLOAD,  3  =  CLOAD,  4  *  Unused,  5  = 
PLOAD,  6  =  TLOAD) 

13-27  Contents  of  commons  L0SBLK,RTMBLK,C0N8LK,PRSBLK, 

THRBLK  (respectively  depending  on  ITYPE)  starting 
with  the  real  boundary  coordinates  (usually  RL  or 
XL,  after  LDMS).  Note  -  the  length  of  these  common 
blocks  varies. 

27-28  For  LLOAD, CLOAD, PLOAD 

29- 30  For  TLOAD 

Different  position  is  caused  by  different  length 
noted  above  Word  1  is  NBLK  -  tne  number  of  256  word 
blocks  a  profile  would  fill  -  (NPT  -  l)/256  +  1 
Word  2  is  NBLK  *  NSCAN  -  see  commons  listed  above 

30- 256  Empty 
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Body  of  file  begins  here: 

257  INTEGER 

258  INTEGER 

259  INTEGER 

260  INTEGER 


etc. 


etc. 


etc 


etc 


Elevation  of  Is*"  point  in  profile  1 

Elevation  of  2nc*  piont  on  profile  1 

Elevation  of  3  point  on  profile  1 

Elevation  of  4^  point  in  profile  1 


etc. 

Elevation  of  last  point  on  profile  1 
Elevation  of  1st  point  on  profile  2 


etc 
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FEATURE  DATA  FILE 
(.FD) 


LUN:  1,26 

READ  8Y :  MAINFT.ADDREC, CHANGE .PRINFT  ,3RCHF I ,DRFTTH ,DRI VFT .RDHDFT , 

FTOPEN.DRFTPR 


WRITTEN  TO:  MAINFT .ADDREC .CHANGE 


PURPOSE  : 

This  file  holds  the  feature  data  (unit  symbols,  roads, 
railroads,  urban  areas,  etc)  that  is  to  be  overlayed  onto 
the  various  FEED  plots.  The  file  is  created  and 
maintained  by  MAINFT. SV.  The  feature  data  is  plotted  by 

routines  DRIVFT.DRFTTH,  and  DRFTPR. 

STRUCTURE: 

Words 

Variable  Type 

Contains 

1-4 

INTEGER 

File  name  of  feature  data  file 

(.FD) 

5 

INTEGER 

"W"  if  file  coordinates  are  WGS 

"U"  if  file  coordinates  are  UTM 

6-15 

INTEGER 

20  character  file  description 

16 

INTEGER 

Number  of  single  point  records 

in  file 

17 

INTEGER 

Number  of  boundary  type  records 

in  file 

13 

INTEGER 

Number  of  disk  blocks  in  file 

19 

INTEGER 

Total  number  of  records  in  file 
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The  feature  data  records  follow: 


20 

INTEGER 

Feature  record  number 

21 

INTEGER 

Feature  code 

20  is  point  type  data 

20  is  boundary  type  data 

22-33 

INTEGER 

20  character  record  description 

34 

INTEGER 

Number  of  points  (coordinate 
pai rs)  in  record 

35-36 

REAL 

Latitude  (or  Northing)  of  point 

1 

Longitude  (or  Easting)  of  point 

1 

Coordinates  for  point  2 

37-38 

REAL 

39-42 

REAL 

43-46 

REAL 

Coordinates  for  point  3 

etc. 

etc. 

etc. 

The  feature  data  records  repeat  in  sequence  in  the  same  format.  If 
a  record  has  too  many  points  to  fit  in  the  remainder  of  the  disk  block, 
the  block  is  padded  with  -1,  and  the  record  is  written  out  into  the  next 
block.  Thus  records  do  not  span  block  boundaries. 
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PARAMETER  FILE 
(.PM) 
"PLPARM" 

LUN:  44 


READ  BY: 

PLOTPM.PMPRT.WPRFRT 

WRITTEN  TO: 

I NCON , I NLOS , I NPRS , I NRTM 

, I NTHRO , PMPRT .WPRFRT 

PURPOSE: 

This  file  contains  the  parameters  selected  by  the  user 
which  define  the  type  of  plot  produced.  Thus  the 
parameters  in  "PLPARM’1  correspond  to  the  plot  in  "PLOTF". 
If  the  user  saves  the  plot  under  a  unique  name  (XXXX.PL), 
then  the  matching  parameter  file  (XXXX.PM)  is  created. 

STRUCTURE: 

Words 

Variable  Type 

Contains 

1 

INTEGER 

Plot  type  -  1  =  contour 

2  =  1 ine  of  si ght 

3  =  3-D 

4  =  perspective 

5  =  RTM 

2-3 

INTEGER 

4  character  data  base  file  name 

4 

INTEGER 

1 Y '  or  ‘ N 1  -  whether  feature 

data  is  to  be  plotted 

5-6 

INTEGER 

4  character  feature  data  file 

name 

7 

INTEGER 

INPUT  -  1  =  WGS 

2  =  UTM 

9-10 

REAL 

Smallest  possible  UTM  Easting 
(used  if  INPUT  =  2) 

11-12 

REAL 

Smallest  possible  UTM  Northing 
(used  if  INPUT  =  2) 
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The  contents  of  the  following  word  positions  vary  depending  on  the 
type  of  plot  being  generated: 

Contour  Plot: 


13-28 

INTEGER 

Bounding  Coordinates 

29-30 

REAL 

Latitude  spacing  in 

seconds  (or  northing 
spaci ng  i n  meters ) 

31-32 

REAL 

Longitude  spacing  in 
seconds  (or  easting 
spacing  in  meters) 

46 

INTEGER 

Number  of  points 

between  TIC  marks 

3-0  Plot: 

13-28 

INTEGER 

Bounding  coordinates 

29-30 

REAL 

Latitude  interval 

31-32 

REAL 

Longitude  interval 

33-35 

INTEGER 

Facing  boundary 

36-41 

INTEGER 

Position  of  viewer 

with  respect  to  facing 
boundary 

42 

INTEGER 

Reference  elevation 

49-50 

REAL 

Vertical  exaggeration 

Line  of  Sight  Plot: 
13-28 

29 

49 


printout 
2  tabular 
pri ntout  onl y 


INTEGER 

Beginning  and  enpoint 

coordinates 

INTEGER 

Number  of  points  along 

the  profi le. 

INTEGER 

IPRT  =  0  plot  only 

1  both  plot 
and  tabular 


Perspective  Plot: 


13-20 

INTEGER 

Coordinates  of 

observation  point 

21-22 

REAL 

Height  of  observer 

23-24 

REAL 

Bearing 

25-26 

REAL 

Radial  length 

27-28 

REAL 

Spacing  along  radial 

29-30 

REAL 

Spacing  between  radial 

31-32 

REAL 

Field  of  view  - 

(degrees ) 

49-50 

REAL 

Vertical  exaggeration. 

RTM  Plot: 

13 

INTEGER 

Masking  option: 

1  -  safe  area  contours 

2  -  acquisition 

contours 

3  -  safe  area  below 

given  ceiling 

4  -  fields  of  fire 

14 

INTEGER 

ICH  -  cross  hatching  - 

0  =  yes 
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15-22 

INTEGER 

Coordinates  of 

observer  position 

23 

INTEGER 

Height  of 

observer 

24 

INTEGER 

Ceiling  height 

25-26 

REAL 

Radius  of 

coverage 

27-28 

REAL 

Spacing  along 

radials 

29-30 

REAL 

Beari ng  of  fi rst 

radial 

31-32 

REAL 

Bearing  of  last 

radial 

33-34 

REAL 

Spacing  between 

radials 

Several  of  the  plot 

types  share  the  following 

variables : 

43 

INTEGER 

ICR 

1  or  3  range 
1 i nes  wi 1 1 
be  plotted 

2  or  4 
contour 

1 i nes  wi 1 1 
be  plotted 
0-4  grid 
1 i nes  will 
be  plotted 
3-4  ridge 
lines  wi 1 1 
be  plotted 


44 

INTEGER 

Minimum  contour 

level 

45 

INTEGER 

Contour  interval 

46 

INTEGER 

Grid  spacing 
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47 


INTEGER 


IRDGE  - 


0  -  ri  dge  1  i  nes 
will  be 
plotted 

1  -  ridge  lines 
wi  1 1  not  be 
plotted 

48  INTEGER  IECC  -  earth 

correction 
option 
sel ected 
by  user 

100-101  INTEGER  4  character 

profi le  name 


All  other  file  positions  are  used 


(•PL) 

PLOTF 


LUN:  32 

READ  FROM:  PLTRN,PL2,VPL2,VPRMS 

WRITTEN  TO:  PLOTB.PSWAP 

PURPOSE:  This  file  is  used  to  store  all  the  plot  commands 

generated  by  the  various  FEED  programs.  The  commands  are 
then  read  from  the  file  by  PLTRN.SV  and  actually  plotted 
on  the  Tektronix  and/or  Versatec. 


STRUCTURE:  Header  Block  -  256  words 


Words 

Variable  Type 

Contains 

1 

INTEGER 

The  value  12345  -  used  as  a  test 
to  verify  that  it  is  a  valid  plot 

fi  le. 

2 

INTEGER 

Unused 

3 

INTEGER 

IECC  -  earth  correction  option 

4 

INTEGER 

NBLK  -  number  of  blocks  in  the 

fi  le 

5 

INTEGER 

Number  of  points  computed  from 

data  base 

6 

INTEGER 

number  of  points  requested  from 

outside  the  data  base 

7-10 

INTEGER 

Data  base  file  name 

11-14 

INTEGER 

Prof i 1 e  file  name 

15 

INTEGER 

NBLK  -  same  as  word  4 

16-256 

Unused 

Block  1 

1 

INTEGER 

Plot  type  - 

6  =  contour 

7  =  line  of  sight 

8  =  RTM 

9  =  3-D 


3-4 

5-6 

9-10 

11  INTEGER 


10  =  perspective 
X-coordinate  of  plot  orgin 
Y-coordinate  of  plot  origin 
X-length  of  plot 
Y-length  of  plot 
Plot  Command 


1  =  PLOT 

2  =  DASH 

3  =  NUMBER 

4  =  SYMBOL 

5  =  HARD  COPY 

99=  READ  NEXT  BLOCK 
-99=  END  OF  FILE 


Depending  on  which  plot  command,  the  next  N  number  of  words 
contains  the  needed  parameters  (Pen  up/Pen  down,  coordinates,  angle, 
etc).  PLOT  uses  6  words,  DASH  uses  6  words,  NUMBER  uses  12  words, 

SYMBOL  Coes  48  words,  and  COPY  uses  2  words.  The  commands  are  retrieved 
in  sequence  and  passed  to  the  Tektronix  and  Versatec  supplied  routines. 
They  repeat  until  end  of  file,  however,  no  command  spans  a  block 
boundary. 


POUT  FILE 
"PNTFL" 


LUN:  33 

REAO  FROM:  FTMAIN,PTRU,FTSWP,HIDDEN 

WRITTEN  TO:  FTMAIN, FTSWP, HIDDEN, PPLOT  .TPLOT 


PURPOSE:  The  point  file  contains  the  plot  information  generated  oy 

perspective  and  3-0  programs  and  which  is  needed  to  plot 
feature  data  on  these  types  of  plots.  The  process  of 
determining  which  points  are  hidden  from  view  depends  on  the 
point  file. 

STRUCTURE:  Header  record  -  256  words 


Words 


Contains 


1-5 

6-9 

10-12 

13-14 

15-15 

17 

18-24 

25-50 

51-87 

or 

51-80 
81  -85 
86-98 
99-100 
101-102 

103-256 


FOFIL  Common  Area 
PLOTVR  Common  Area 
PTFIL  Common  Area 

PLTBF  Common  Area  (NPBLK  &  NWRD  only) 

FAC  Common  Area 
GRDBLK  Common  Area 
PARAM  Common  Area 
Unused 

THRBIK  Common  Area  (if  3-D  plot) 

PRSBIK  Common  Area  (if  perspective  plot) 
PARPRS  Common  Area  (if  perspective  plot) 
Unused 

X  coordinate  of  plot  origin 

Y  coordinate  of  plot  origin  (PLTSV  Common 

Area) 

Unused 
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Block  1  -  It  does  not  appear  that  Block  1  is  ever  written  to.  Thus  tne 

point  data  begins  in  Block  2. 

Block  2  -  end  of  file 

25o  words  -  Individual  bits  are  turned  on  (set  to  1 )  by  subroutine 
HIDDEN. 
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VERSATEC  SWAP  FILE 
"V2SFL" 

LUN:  42 

READ  FROM:  VPL2 

WRITTEN  TO:  V2SWP 

PURPOSE:  This  file  is  used  to  transfer  Versatec  plot  parameters  from 

PLTRN.SV  TO  VPL2.SV. 

STRUCTURE: 


Words  Variable  Type 


Contains 


1-2 

3-4 

5-6 

7 


8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21-22 

23 


24-27 


REAL 

REAL 

REAL 

INTEGER 


REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

REAL 

INTEGER 


INTEGER 


XSCAL 

YSCAL 

SCAL 

ITYPE  -  TyOe  of  plot  (See 
description  of  plot  fi le 
*  PLOTF ' ) 

Unused 

SCMIN 

VSTRIP 

VSTRPO 

VXMIN 

VXMAX 

VYMIN 

VYMAX 

I  PERM  =  0  if  plotting  from 
‘PLOTF1;  =  1  if  from  permanent 
f i  le. 

IFPERM  -  Plot  file  name 


Note  -  The  variables  in  words  1-22  take  on  different  values  depending 
on  the  type  of  plot  being  generated.  See  subroutine  VPRMS  •‘‘or  the 
computation  of  these  variables. 
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ADP 

BFCM.BUF, BUFFER 

CLCOMP , CONBLK, CONPRM ,CONT ,CONTHR .CONTSC ,CORE 

D8DAT,DBFIL,DESCRI 

EARTH 

FAC.FDFIL 

GRDBLK.GRID 

HEADER, HIDCM, HIDE 

IBND.IFFLG.IMGCOM, INDEX, INTYPE, 10, IPFL, IPLOPT, IUTM, I VFILE 

LOCUTM,LOSBLK 

MGBLK 

PARAM,PARPRS ,PBUF ,PCNT .PLOTVR ,PLTBF ,PLTCO .PLTSAV , 

PNTS, POINT, PPLTS,PRFCM,PRFIL,PRPT,PRSBU,PTBLK,PTFIL,PTFT 

REC, RECORD, REFVAL, RIDGE, RTM8LK, RTMPAR 

SCALE, SCOM.SEG.SWPCM 

TEK,TEKOPT,THRBLK,TKTRNX 

UNITS 

VPRM 

XEXN 

ZONEZ 
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COMMON  AREA 


AOP 

BFCM 

BUF 

BUFFER 

CLCOMP 

CONBLK 

CONPRM 

CONT 

CONTHR 

CONTSC 

CORE 

D8DAT 

DBFIL 

DESCRI 


FTMAIN,  PTRD 

RMAIN.LMAIN.PLTRN.BUFFPK 
FTMAIN, FTSWP 
ADDREC, CHANGE 

RMAIN, LMAIN.PLTRN, DASH, PLOTS, PLOT, SYMBOL 
CMAIN,CPLOT,CONPLT, INCON 

CMAIN,INCON,INLOS,INPRS,INRTM,INTHRD,PMPRT,WPRFRT 

CMAIN.PMAIN ,PRSWP ,RMAIN ,RTSWP ,TMAIN ,THSWP .PERSP, RTM, 
THREEO, CON, INCON, INRTM,PLTOPT,PLTPRT,RPLOT,RTMPLT,VCON 

SCALTH .GRDTHR , CALCTH 

CMAIN.CPLOT.CONTBD.CONTFT 

PTMN, ALT, WINDOW 

NALT.ALT 

CMAIN,CPLOT,PMAIN,RMAIN,LMAIN,TMAIN,PERSP,PROFL,PTMN,RTM, 
THREED, INCON, INLOS, INPRS , INRTM, INTHRD, JPRFRT ,WPRFRT , 

PSWAP, SETUP, TITLE 

FTMAIN, DRFTTH ,THRFT ,DRFTPR  ,PRSFT,CONTFT,DRI VFT,RTMFT ,UNPLT 
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EARTH  CMAIN, PMAIN, PRSWP, RMAIN,RTSWP,LMAIN,LQSPRT,TMA IN, THSWP 

PERSP, RTM,THREED,ERTOPT,ERTPLT,ERTPRT, I NLOS, INPRS, INRTM, I NTHRD, 
LOSPLT,PPLOT,RPLOT,PRSPLT,PSWAP,RPLOT,RTMPLT,THRPLT,TPLQT 

FAC  CMA I N ,CPLOT , PMAI N, PRSWP , RMA IN , RT  SWP , TMA I N .THSWP , PERS  P , 

FTMAIN,GRDTHR,GRDPRS .PTCALC ,RTM,THREED,CON,FTSWP ,PPLOT , 
RPLOT,TPLOT,VCON 

FDFIL  CMAIN, CPLOT, PMAIN, PRSWP, RMAIN,RTSWP,TMAIN,THSWP,PERSP, 

FTMAIN,DRFTTH,DRFTPR,RTM,THREED,DRI VFT,FTOPEN,FTSWP , INCON, INPRS  , 
INRTM, I NTHRD ,RPLOT, SETUP 

GRDBLK  PMAIN, PRSWP ,RMAIN,RTSWP .TMAIN.THSWP ,PERSP ,FTMAIN .GRDTHR .GRDPRS , 

RTM, THREED,FTSWP,GRDRTM, INPRS, INRTM, INTHRO, PLTOPT, 

PLTPRT,RPLOT 

GRID  PROFL ,PTSOR ,PTS,PTSSEC 

HEADER  MAI NFT.ADDREC, CHANGE, PRINR 

HIDCM  CPLOT,CON,PPLOT,RPLOT,TPLOT, VCON 

HIDE  PERSP,FTMAIN,THREED,FTSWP, HIDDEN 

IBND  CMA I N , CONPLT , I NCON , I NTHRD , MGBOUN 

IFFLG  MAINFT.MGSET 

IMGCOM  MAINFT.PRINFT, PRINR, UTM2MG 

INDEX  CMAIN, PMAIN, RMAIN,LMAIN,TMAIN,PTMN,NALT, ALT, WINDOW, 

I NCON , I NLQS .INPRS, INRTM, I NTHRD , SETUP , T I TLE 

INTYPE  MAINFT.ADDREC 
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10 


IPFL 

IPLOPT 

IUTM 

IVFILE 

10CUTM 

LOSBLK 

MG8LK 

PARAM 

PARPRS 

PBUF 

PCNT 

PLOTVR 


CMAIN,PMAIN,RMAIN,LMAIN,LOSPRT,TMAIN,MAINFT,L)OPARM,PLOTPM , 
WINDOW,PLTRN,AGAIN,ERTOPT,ERTPRT, INCON, INLOS, INPRS , 

INRTM, INTHRD.MGBOUN.MGCORD ,MGSET  ,PLT0PT,PLTPRT ,PLTSV,PRCEED , 
JPRFRT, WPRFRT.RDGPRT.RPLOT, SETUP, STAT, TITLE, TPLOT .UTM2MG .VPRMS 

OOPARM.PLOTPM.PLTRN 

INPRS, INTHRD.PLTOPT 

LMAIN.LOSPRT, I NLOS .LOSPLT 

PLTRN.V2SWP 


PMAIN.PRSWP , RMAIN ,RTSWP, LMAIN.PERSP ,RTM, I NLOS , INPRS , 
INRTM,MGCORD,PRSPLT,RTMPLT 

LMAIN.LOSPRT, I NLOS .LOSPLT 

CMAIN,PMAIN,RMAIN,LMAIN,TMAIN,MAINFT,MG80UN,MGC0RD,MGSET 

CMAIN, PMAIN.PRSWP, RMAIN, RTSWP.LMAIN, TWAIN, THSWP.PERSP, 
PROFL,PTMN,PTS,FTMAIN,DRFTTH,DRFTPR,RTM,THREEO,FTSWP, 

INCON, INLOS, INPRS, I NRTM, I NTHRD.PLBPFT.PLSPFr.PPLOT, JPRFRT, 
WPRFRT,RPLOT,RTMPLT,THRPLT, TITLE, TPLOT 

PERSP,FTMAIN,SCALPR ,DRFTPR,PRSFT,PRSBD,CALCPR,GRDPRS .PRSLIN , 
FTSWP.PPLOT 

PRFWRT.JPRFRD.PRFRD 

PTMN.ALT.NALT 

CMAIN.PERSP , FTMAIN .DRFTTH .DRFTPR ,PRS6D .CALCPR .GRDPRS .RTM.THREED , 
DRIVFT.FTOPEN.FTSWP.PLBPFT.PLSPFT.RDHDFT.RTMBD.RTMFT.SCALFT 
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PLTBF  CMAIN.CPLOT ,PERSP,FTMAIN, VPL2,RTM,THREED,FTSWP ,LOSPLT,PL2, 

PLOTB,PPLOT,PSWAP ,TPLOT 

PLTCU  VPL2.PL2 

PLTSAV  CMAIN,CPLQT,CONPLT ,PERSP ,RTM,THREED,LOSPLT  ,PPLOT,PRSPLT , 

RPLOT.RTMPLT ,THRPLT , TPLOT, FT$WP,FTMA IN, SCALTH 

PNTS  CMAIN,CPLOT,PMAIN,RMAIN,LMAIN,TMAIN,PERSP,PTMN,NALT,ALT, 

RTM,THREED, JPRFRT ,WPRFRT ,PSWAP ,STAT 

POINT  CPLOT,LMAIN,LOSPRT ,PTMN ,PTS,PT SSEC ,LOSPLT ,PPLOT ,RPLOT ,  TPLOT 

PPLTS  PL2.WPLOTS 

'’RFCM  CMAIN,PMAIN,RMAIN,LMAIN,TMAIN,JPRFRT,WPRFRT 

PRFIL  CMAIN, PMAIN,RMAIN,LMAIN, TWAIN, PERSP,RTM,THREEO,PMPRT,JPRFRT, 

WPRFRT.PSWAP 

PRPT  FTMAIN,PRSBO,GRDPRS 

PRSBLK  PMAIN,PRSWP ,PERSP ,FTMAIN,SCALPR ,FTSWP , I NPRS,PPLOT,WPKSPLT 

PTBLK  FTMAIN,GRDTHR,GRDPRS,PTCALC,PTRD 

PTFIL  PERSP,FTMAIN,THRFT,THR8D,GRDTHR,PRSBD,GRDPRS,PTCALC,PTRD,THREED,FTSNP, 

TPLOT 

PTFT  PERSP,THREEU,PPLOT, TPLOT 

REC  FTMAIN,DRFTTH,DRFTPR,DRI VFT,PLBPFT,PLSPFT 

RECORD  AODREC, CHANGE, PRINR 


REFVAL  MAINFT.AOOREC 


RIDGE 

RTMBLK 

RTMPAR 

SCALE 

SCOM 

SEG 

SWPCM 

TEK 

TEKOPT 

THRBLK 

TKTRNX 


PMAIN,PRSWP,RMAIN,TMAIN,THSWP ,PERSP,THREED,PLTOPT,PPLOT, 
RDGPRT.JTPLOT 

RMAIN,RTSWP,RTM,GRDRTM, INRTM.RPLOT.RTMPLT 

RTM.RPLOT.RTMBD.RTMFT 

GRDRTM.RTMPLT 

FTMAIN,DRFTPR,PRSBD,CALCPR 

FTMA I N ,DRFTTH ,THRBD .DRFTPR ,PRSBD .CONTBD , PLBPFT , RTMBD 

CMAIN.CPLOT ,PMAIN,PRSWP , RMAIN.RTSWP ,LMAIN ,TMAIN ,THSWP , 
PERSP,PROFL,PTMN ,PLTRN ,RTM,THREED ,LOSPLT ,PPLOT, 
JPRFRT,WPRFRT,PSWAP,RPLOT,TPLOT,VPRMS,V2S^P 

CMA I N , PMA I N , RMA I N , LMA I N , TMA I N 
CMAIN,RMAIN,LMAIN,PLTRN 

TMAI N.THSWP .FTMAIN .SCALTH ,THRBD .THREED ,FTSWP , INTHRD , SCALFT , 
THRPLT.TPLOT.CALCTH 

ALFMOD, BUFFPK.CARTN.CLIPT.CWSEND.DRAWA, HOME, INI TT,IOWAIT,LINEF, 
LMAIN,LVLCHT,MOVABS,MVEA,PCLIPT,PLTCHR ,PLTRN,PNTMOD,PSCAL,RECDVR , 
RESCAL,REVCOT,RMAIN,RSET,TOUTST,VECMOD,VWINOO,V2ST,WINCOT, 

XYCNVT 
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UNITS 


ALT .CMAIN.CONPLT .GRDRTM, INCON , INLOS , INPRS , INRTM, 

INTHRD ,LMAIN,LOSPLT ,LOSPRT  ,PERSP  .PLTOPT  ,PLTPRT  ,PMAIN,PPLOT  , 
JPRFRT ,WPRFRT ,PRUFL , PRSPLT ,PRSWP ,PTMN ,PTS ,RMAIN , RPLUT , 
RTM.RTMPLT, RTSWP, SETUP ,THREED,THRPLT,THSWP, TITLE, TMAIN.TPLOT, 
WINDOW 

VPRM  PLTRN, VPRMS , V2SWP 

XEXN  CMAIN, PMAIN, RMAIN.LMAIN.TMAIN, INCUN, INLOS, INPRS, I NRTM, 

INTHRD ,MGSET 

ZUNEZ  CMA I N , PMA I N , LMA I N , RMA I N , TMA I N , MA I NF  T 
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DESCRIPTION  OF  COMMON  VARIABLES 
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AD P  Common  Area 


COMMON/ADP/IAOP 

Where: 

IADP  Is  used  by  subroutine  PTRD  to  calculate  which  block  of 

the  point  file  ("PNTFL")  to  read  into  the  IPT  array. 
(See  also  the  PTBLK  common  area). 


1 

l 

J 


8FCM  Common  Area 


The  8FCM  common  area  is  a  buffer  array  used  by  the  Tektronix 
program,  subroutine  3UFFPK,  for  generating  output  to  the  Tektronix 
terini  na  1 . 

C0MM0N/3FCM/I8FCM(1 32) 

Where: 

IBFCM  is  initialized  to  zero  in  OAT A  statements  in 
BUFFPK,LMAIN,PLTRN,  and  RMAIN. 
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8UF  Common  Area 


The  BUF  common  area  stores  the  values  of  variables  needed  to  plot 
feature  data  on  the  perspective  and  3-dimensional  plots. 

DIMENSION  ABUF (128) 

COMMON/BUF/IBUF (256) 

EQUIVALENCE  ( I BUF , ABUF ) 

Where: 

IBUF  The  IBUF  array  is  filled  with  variables  from  the 

appropriate  common  blocks  in  subroutine  FTSWP.  The 
subroutine  then  writes  the  array  onto  block  0  of  the 
Points  file. 

FTSWP  then  swaps  to  "FTMAIN.SV"  which  reads  IBUF  from  the 
disk  file  and  puts  the  values  back  into  the  common  blocks. 

The  common  blocks  involved  are  FDFIL,PLOTVR,PTFIL,PLTBF, 
FAC,GRDBLK,PARAM,THRBIK,PRSBLK,PARPRS,  and  PLTSAV. 


BUFFER  Common  Area 


The  BUFFER  common  area  is  used  by  the  programs  which  create  and 
modify  feature  data  files. 

C0MM0N/BUFFER/I8UF{256) 


Where: 

IBUF  Is  a  256  word  array  wnich  is  used  for  temporarily  storing 
information  which  is  to  be  added  to  a  feature  data  file. 
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CLCOMP  Common  Area 


The  CLCOMP  common  area  contains  information  needed  by  the  Tektronix 
plotting  programs. 

COMMON/CLCOMP/ ICLCMP ( 31 ) 

or  COMMON/CLCOMP/XSTART.YSTART , XF SET ,YFSET,XACUM, YACUM, SKIP, NSKIP, 
IOPT,XLEN, YLEN.XFAC, YFAC.FAC ,NHARD,XPOSIT, YPQSIT 

Where:  The  variables  in  the  CLCOMP  Common  Area  (except  NHARD)  are 

initialized  in  the  Tektronix  supplied  routine,  subroutine 
PLOTS. 
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CONBLK  Common  Area 


This  common  area  contains  user  inputs  for  the  contour  plot  option.  The 
variables  in  the  CONBLK  common  area  are  input  or  computed  in  subroutine 
INCON. 

C0MM0N/C0N8LK/LDMS(4,2,2) ,RL(2,2) ,DLAT,DLON,NPTS,NSCAN,ITIC,NCOPY 
Where: 

LDMS  Gives  the  latitude  or  longitude  of  a  boundary  in  degrees, 
minutes,  seconds,  and  direction  as  follows: 

LDMS(K, 1 ,1 )  K=1 ,4  latitude  of  southern  boundary 

LDMS(K,2,1)  K=l,4  latitude  of  northern  boundary 

LDMS(K,1 ,2)  K=1 ,4  longitude  of  western  boundary 

LDMS (K, 2, 2)  K=1 ,4  longitude  of  eastern  boundary 

LDMS  is  input  by  the  user  in  subroutine  INCON;  it  is  read 
from  unit  number  IRD  with  FORMAT  (I3,2I2,A1). 

RL  Gives  the  locations  of  the  boundaries  as  follows: 

If  the  WGS  system  is  being  used  (INPUT  =  1),  RL  gives  the 
latitude  or  longitude  or  a  boundary  in  signed  seconds,  with 

RL (1,1)  3  latitude  of  the  southern  boundary 

RL (2,1)  =  latitude  of  the  northern  boundary 

RL(1,2)  =  longitude  of  the  western  boundary 

RL(2,2)  «  longitude  of  the  eastern  boundary 
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CONBLK  Common  Area  (continued) 


DLAT 

DLON 

NPTS 

NSCAN 


If  the  mil  grid  system  is  being  used  (INPUT  =■  2),  RL  gives 
the  boundaries  in  meters. 


RL  (1 ,1 )  = 

southern  boundary 

RL  ( 2 , 1 )  = 

northern  boundary 

RL  ( 1 , 2 )  = 

western  boundary 

RL(2,2)  = 

eastern  boundary 

RL  is  computed  in  subroutine  INCON,  using  calls  to  subroutine 
DMSSEC  (if  WGS  system)  or  to  subroutine  MGBOUN  (if  mil  grid 
system). 

DLAT  gives  the  latitude  interval  in  seconds  (if  the  WGS 
system  is  being  used)  or  the  northing  interval  in  meters  (if 
the  mil  grid  system  is  being  used). 

DLON  gives  the  longitude  interval  in  seconds  (WGS  system)  or 
the  easting  interval  in  meters  (mil  grid  system). 

Is  the  number  of  points  along  a  profile. 

Is  the  number  of  profiles. 

NPTS  and  NSCAN  are  computed  in  subroutine  INCON. 
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CONBLK  Common  Area  (continued) 


ITIC 


NCOPY 


Is  the  number  of  terrain  points  between  tic  marks;  (  zero 
implies  no  tic  marks). 

Is  the  desired  number  of  copies  of  the  plot  (  10). 
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CONPRM  Common  Area 


The  CONPRM  common  area  stores  plot  parameters  corresponding  to  the  plot 
file  being  used;  these  can  be  printed  on  the  Tektronix  terminal  by  subroutine 
PLOTPM. 

DIMENSION  PMBUF(1 28) 

COMMON/CONPRM/ I PMBUF ( 256 ) 

EQUIVALENCE  ( IPMBUF, PMBUF) 

Where: 

IPMBUF  This  array  is  filled  with  variables  from  the  appropriate  Common 
blocks  by  subroutines  INCON,INLOS,INPRS,INRTM,  or  INTHRU 
depending  on  which  of  the  five  plot  types  is  being  made. 

In  addition,  IPMBUF ( I )  is  assigned  values  as  follows,  depending 
on  plot  type: 

1  contour  plot 

2  line  of  sight  plot 

3  3-dimensional  plot 

4  perspective  plot 

5  radar  terrain  mask  plot 

The  array  is  then  written  onto  block  0  of  the  parameters  file. 
Subroutine  PMPRT  or  WPRFRT  adds  the  profile  file  name  to  IPMBUF. 

Subroutine  PLOTPM  reads  this  information  from  the  disk  file  and 
prints  out  the  parameters  on  the  Tektronix  Terminal.  (See 
PLOTPM). 
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CONT  Common  Area 


COMMQN/CONT /NCL , ICUR (1 1 ),IC(11 ) 


Where: 

NCL  Is  the  number  of  contour  levels.  At  the  present  time  the 

programs  use  a  maximum  of  11  contour  levels. 


ICUR  Gives  the  contour  levels  in  meters. 


IC  Counter  to  keep  track  of  which  contour  level  is  being 

plotted  and  when  to  add  the  contour  level  symbol. 

See  subroutines  CON  and  VCON. 


Depending  on  which  type  of  plot  is  being  made  NCL  and 
ICUR  are  computed  on  the  basis  of  user  input,  by 


Subroutine 

INCON 

INRTM 

PLTOPT 


Plot  Type 
Contour  Plot 
Radar  terrain  mask 
Perspective  or  3- 
dimensional  plot. 


INCON  and  PLTOPT  set  NCL  *  11  and  compute  II  values  of 
ICUR  based  on  the  user  inputs  for  the  variables  ICMIN 
(minimum  contour  level)  and  ICOEL  (contour  interval). 
INRTM  does  likewise  except  in  the  case  of  masking  option 
#3  (“Safe  area  below  a  given  ceiling"),  in  whicn  case 
there  may  be  fewer  than  11  contours,  depending  on  tne 
choice  of  ceiling  height. 
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CONTHR  Common  Area 


The  CONTHR  common  area  contains  information  needed  to  draw  a  grid 
on  the  3-dimensional  plot. 

C0MM0N/C0NTHR/B(2,2) ,08(2) 

Where: 

8  Gives  the  locations  of  the  plot  boundaries.  If  the  WGS  system 
is  being  used  (INPUT  =  1),  8  gives  the  latitude  or  longitude 
of  the  boundary  in  signed  seconds.  If  the  mil  grid  system  is 
being  used  (INPUT  =  2) ,  8  gives  the  boundaries  in  meters. 

08  If  the  WGS  system  is  being  used  DB  is  a  latitude  or  longitude 
interval  in  seconds.  If  the  mil  grid  system  is  being  used,  DB 
is  a  northing  or  easting  interval  in  meters. 

B  and  DB  are  computed  by  subroutine  SCALTh  based  upon  values 
in  the  THRBLK  Common  Area. 
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CONTSC  Common  Area 


The  CONTSC  common  area  stores  parameters  specifying  plot  dimensions 
and  scale  factors  for  the  contour  plot;  these  parameters  are  used  by  the 
programs  which  plot  feature  data  on  the  contour  plot. 

C0MM0N/C0NTSC/FL(2,2),B(2),XSCAL,YSCAL 

Where: 

FL  Gives  the  locations  of  the  boundaries  as  follows: 


FL (1,1)  = 

southern 

boundary 

FL ( 2 , 1  )  = 

northern 

boundary 

FL ( 1 ,2)  = 

western 

boundary 

FL(2,2)  = 

eastern 

boundary 

If  the  WGS  system  is  being  used,  FL  is  a  latitude  or 
longitude  value  in  signed  seconds,  while  if  the  mil  grid 
system  is  used,  FL  has  units  of  meters.  FL  is  computed 
in  subroutine  CPLOT  by  moving  elements  from  the  array 
variable  RL  (See  CONBLK  Common  Area)  into  the  array  FL. 

B  Gives  the  horizontal  and  vertical  plot  dimensions  in 

inches  with 

B(l)  =  horizontal  dimension 

B{2)  =  vertical  dimension 

XSCAL  Is  the  horizontal  scale  factor  for  the  plot  in 

inches/signed  second  (if  WGS)  or  in  inches/meter  (if  mil 
grid). 


180 


CON T SC  Common  Area  (continued) 


Is  the  vertical  scale  factor  for  the  plot  in  the  same 
units  as  XSCAL. 

B.XSCAL,  and  YSCAL  are  computed  in  subroutine  CPLOT  using 
the  parameters  returned  from  subroutine  CONPLT. 
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CURE  Common  Area 


The  CORE  Common  Area  is  used  to  read  portions  of  polynomial  data 
base  files  into  memory  to  speed  up  processing  by  minimizing  distc  access. 

DIMENSION  CNDEX( 7 ,4) 

COMMON/CORE/ ICORE .MXCORE , ICNDEX(1 4,4) , IFAST(2000) 

EQUIVALENCE  ( ICNUEX.CNDEX) 

Where: 

ICORE  =  0  if  area  in  question  is  not  in  core,  therefore  must 
read  from  disk 

=1  if  WINDOW  has  placed  the  area  of  the  data  base  in 
core. 

MXCORE  Is  the  maximum  number  of  words  which  can  fit  into  tne 

core.  MXCORE  is  initialized  to  2000  in  subroutine  PTMN. 

ICNDEX  Core  index  in  which  is  stored  the  boundary  coordinates  of 
the  areas  which  have  been  read  from  the  data  base  into 
core. 

IFAST  Is  the  2000  word  area  in  the  core  which  receives  the  data 
base  data. 
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OBUAT  Common  Area 


The  DBDAT  common  area  is  used  to  read  in  data  from  the  data  base 

file. 

COMMON/DBDAT/IRAY (1280,2) 

Where: 

IRAY  Array  into  which  ALT  and  NALT  read  elevation  values  from 
the  data  base  file.  From  this  array  they  extract  the 
profi les. 
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DBF  I L  Common  Area 


C0MM0N/D8FIL/IU8Fl(4) , IDS 
Where: 

IDBFL  Is  the  unique  4  character  name  for  the  data  base  file  to  be 
used  for  the  plots. 

"XXXX.DB" 

where  the  X's  are  input  by  the  user. 

I08FL  is  read  from  unit  IRD,  with  F0RMAT(2A2)  in  subroutine 
SETUP. 

IDB  Specifies  whether  or  not  the  program  should  use  a  new  data 

base  file  for  the  plot,  as  follows: 

0  =  No  08  file  has  been  opened  yet. 

I  =  A  DB  file  is  open;  ask  whether  user  wants  to 
reuse  it. 


184 


DESCRI  Common  Area 


COMMON/DESCR I / IDES 

Where: 

IDES  Is  used  to  specify  the  size  of  a  military  unit  as  follows: 


IDES  Value 

Unit  Size 

Symbol  Used 

1 

squad 

f i  1  led  in  square 

2 

between  squad 

two  filled  in 

and  platoon 

squares 

3 

platoon 

three  filled 

in  squares 

4 

company 

one  vertical  line 

5 

batal lion 

two  vertical  lines 

6 

group  or  regiment 

three  vertical 

lines 

7 

brigade 

one  ' X ‘ 

8 

division 

two  X's 

9 

corps 

three  X's 

IDES  should  be  input  when  feature  data  records  are  added  or 
changed.  It  has  not  been  fully  implemented  yet.  See 
description  of  subroutine  UNPIT. 

IDES  is  used  by  SPSYM  and  SZPLOT.  Its  value  is  passed  to 
these  programs  in  an  argument. 
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EARTH  Common  Area 


This  common  area  contains  variables  used  in  the  earth  correction 
option. 

COMMON/EARTH/ I ECC.COEF 
Where: 

IECC  Is  used  to  specify  the  elevation  correction  option,  with: 

0  =  earth  curvature  and  atmospheric 

refractivity  correction 

1  =  earth  curvature  correction 

2  =  no  correction 

IECC  is  input  by  the  user  in  subroutine  subroutine  ERTUPT. 
COEF  takes  on  the  following  values: 

0 

1.0/12756270.0 
.75/12756270.0 


when  option  2  is  applied 
when  option  1  is  used 
when  option  0  is  used 


FAC  Common  Area 


COMMON/FAC/FAC 


Where: 

FAC  Gives  the  resolution  of  the  Tektronix  screen  in  pixels  per 

i  nch. 


FAC  is  initialized  to  a  value  of  64.0  (i.e.  1024/16)  by 
subroutines  CMAIN.PMAIN.RMAIN  and  TMAIN. 


187 


FDFIL  Common  Area 


C0MM0N/FDFIL/IFEAT,IFDFL(4) 

Where: 

IFEAT  Indicates  whether  feature  data  is  to  be  drawn  on  the  plot. 
IFEAT  is  set  to  1  in  subroutine  SETUP  if  user  chooses  to 
plot  feature  data. 

IFDFL  Is  the  unique  4  character  file  name  for  the  feature  data 
base  file. 

"XXXX.FD" 

where  the  X's  are  input  by  the  user. 

IFDFL  is  read  in  with  F0RMAT(2A2)  in  subroutine  SETUP. 
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GRD8LK  Common  Area 


This  common  area  contains  the  variables  used  to  specify  spacing 
between  grid  lines  when  the  grid  option  is  chosen.  Grids  can  be  drawn  on 
perspective,  radar  terrain  mask  and  3-diinensional  plots. 

COMMON/GRDBLK/IGRID 

Where: 

IGR ID  Gives  the  spacing  between  grid  lines.  This  spacing  is  in 

seconds  if  the  WGS  system  is  being  used  (INPUT  =  I)  and  in 
meters  if  the  mil  grid  system  is  being  used  (INPUT  =  2). 

IGR ID  is  input  by  the  user  in  subroutine  PLTOPT. 
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GRID  Common  Area 


COMMON/GRID/IANS 
COMMON/GRID/ IGRID 

Where: 

IANS  Specifies  whether  or  not  a  gridded  data 
(IGRID)  base  is  being  used. 

Subroutines  PTS  and  PTSSEC  use  the  variable  IGRID  to 
determine  which  to  use  of  the  two  subroutines  for  computing 
elevations  of  points  along  a  profile. 

IGRID  =1  grid  data  base;  calls  NALT 
IGRID  =  1  not  grid  data  base;  calls  ALT. 

IANS  is  input  by  the  user  in  PROFL;  it  is  read  from  unit 
number  11  with  FORMAT  (II). 


HEADER  Common  Area 


The  HEADER  common  area  contains  file  index  information  for  a 
feature  data  file.  (See  also  subroutines  ADDREC  and  CHANGE,  and  the 
main  program  MAINFT  which  are  used  to  create  and  modify  feature  data 
files). 

COMMON/HEADER/INDEX(l  9) 

Where: 

INDEX  INDEX(l)  to  INUEX(4)  contains  the  4-character  name  for 
the  feature  data  file. 

INDEX(5)  is  equal  to  1 W *  if  the  user  specifies  WGS  units 
or  'U‘  if  UTM  units. 

INDEX(6)  to  I NDEX( 15)  is  a  20  character  or  less  file 
description. 

These  elements  of  the  INDEX  array  are  input  by  the  user 
in  MAINFT. 

INDEX (16)  is  the  number  of  single  point  records  in  the 
fi  le. 

INDEX (17)  is  the  number  of  boundary  records  in  the  file. 
IND£X(!8)  is  the  number  of  disk  blocks  in  the  file. 

INDEX (19)  is  the  number  of  records  in  the  file. 


H1DCM  Common  Area 


rue  HIOCH  common  area  Is  used  to  record  -tether  points  along  a 
profile  are  hidden  from  view. 

C0MM0N/HIDCM/IH1D(256,2) 


\m  Array  elements  hold  1  if  point  is  hidden,  hold  0  if  point 

is  visible. 

Note:  The  information  stored  in  this  array  is  also 
stored  in  the  point  file,  using  subroutine  HIDDEN.  This 
parallel  information  is  used  only  for  plotting  feature 
data  in- perspective. 


IBND  Common  Area 

This  common  area  contains  boundary  values  in  mil  grid  form. 

COMMON/ I UNO/ IBND (2, 4) 

Where: 

IBND  the  value  of  a  boundary  (northern,  southern,  eastern,  or 
western)  for  the  plot,  in  mil  grid  form. 

1 8 NO (1,1)  1  =  1,2  southern  boundary  (northing  value) 

IBNU(I,2)  1=1,2  northern  boundary  (northing  value) 

IBND(I,3)  1=1,2  western  boundary  (easting  value) 

IBND ( I >4)  1=1,2  eastern  boundary  (easting  value) 

IBND  is  input  by  the  user  in  subroutine  MGBOUN  as  one  4 
digit  number  for  each  of  the  4  boundaries.  It  is  read  with 
FORMAT  (2A2). 


IFFLG  Common  Area 


COMMON/ IFF LG/ I FFLG 

mis  coionon  is  contained  in  MGSET  and  initialized  in  MAIKfT.  but  it 
is  never  used  for  any  purpose.  It  appears  that  this  common  should  be 

deleted. 
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IMGCOM  Common  Area 


The  IMGCOM  common  area  contains  a  mil  grid  value  used  in  printing 
the  contents  of  a  feature  data  file. 

COMMON/ IMGCOM/ IMG( 4) 

Where: 

IMG  Gives  the  location  of  a  feature  data  point  as  a  mil  grid 

value  (represented  as  8  characters). 

IMG  is  computed  by  subroutine  UTM2MG  and  is  printed  on 
the  terminal  by  subroutines  PRINFT  and  PR  I  NR . 


INDEX  Common  Area 


The  INDEX  common  area  contains  information  about  the  data  base 

file. 

COMMON/ 1  NOE X/MASTEK(1 4,18) , IDUM(4) 

Where: 

MASTER  This  array  contains  variables  which  are  used  to 

characterize  the  13  regions  in  a  data  base  file.  (See 
the  detailed  description  of  the  data  base  file). 

IDUM  contains  the  remainder  of  the  header  block  beyond  the 
cell  definitions.  IDUM ( 1  )  holds  the  indicator  whether 
the  data  base  is  WGS  or  UTM. 

The  MASTER  array  is  read  from  block  0  of  the  data  base 
file  by  subroutines  SETUP  and  PTMN. 
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INTYPE  Common  Area 

COMMON/ INTYPE/ I DATA 

Where: 

IOATA  Specifies  the  method  chosen  to  input  feature  data  as 
fol 1 ows : 

IOATA  =  ‘O'  data  input  from  the  map  by  using  the 
digitizing  tablet 

IDATA  =  ' K '  data  input  by  keying  in 
IOATA  is  specified  by  the  user  in  MAINFT. 
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10  Common  Area 


C0MM0N/I0/IR0 

Where: 

IRO 


IWRT 


IWRT 


Specifies  the  unit  number  from  which  user  input  is  read, 
i.e.  for  input  from  the  Tektronix  keyboard  IRl)  =  11. 

Specifies  the  output  unit  number.  For  output  to  the 
Tektronix  terminal,  IWRT  =  10. 

These  variables  are  initialized  by  several  programs  in 
DATA  statements. 
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IPFL  Common  Area 


COMMON/ IPFL/IFL (4) 


Where: 

IFL  Is  the  unique  4  character  name  for  the  parameters  file 

that  contains  the  desired  plot  parameters. 


"XXXX.PM" 

Where  the  X 1 s  are  input  by  the  user. 
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IPLOPT  Common  Area 


This  common  area  contains  3  parameters  input  in  programs  PIOAD  and 
TLOAD.  After  changing  to  other  programs  these  values  are  stored  in 
other  common  blocks  (See  RIDGE  Common  Area). 

COMMON/IPLOPT/ICMIN, ICDEL, IRGE 

Where: 

ICMIN  Is  the  minimum  contour  level  in  meters. 

ICDEL  Is  the  contour  spacing  in  meters. 

IRGE  Is  used  to  specify  the  ridge  line  option  as  follows: 

IRGE  =0  Do  not  plot  all  ridge  lines. 

IRGE  =1  Plot  all  ridge  lines. 

IRGE  is  automatically  set  equal  to  1  if  the  user  selects 
the  'range  lines  only'  or  'range  lines  and  grid'  options. 
If  the  user  chooses  one  of  the  other  options,  he  is  asked 
whether  he  wants  ridge  lines  plotted.  (See  subroutine 
PITOPT  for  a  description  of  these  plot  options). 
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IUTM  Common  Area 


This  common  area  contains  the  locations  of  the  initial  and  terminal 
points  for  the  line-of-sight  plot. 

COMMON/ I UTM/ I COORD (4, 2) 

Where: 

[COORD  Gives  the  location  of  an  initial  or  terminal  point  for 
the  line-of-sight  plot,  as  follows: 

ICOORD ( 1 ,1 )  -  ICOORD ( 4,1 )  initial  point 

ICOORD(1 ,2)  -  IC00RD(4,2)  final  point 

ICOORD  for  each  point  is  an  8  digit  mil  grid  value  of 
form  (EEEENNNN) .  It  is  computed  in  subroutine  INLOS. 
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IVFILE  Common  Area 


The  IVFILE  common  area  is  used  if  a  Versatec  plot  is  being  made 
from  a  permanent  plot  file;  it  contains  the  permanent  plot  file  name. 

COMMON/ IVFILE/ IPERM, IFPERM(4) 

Where: 

IPERM  Specifies  whether  a  plot  file  is  permanent,  as  follows: 
IPLOT  VALUE 

1  Permanent  plot  file 

0  Otherwise 

IFPERM  Is  the  unique  4-character  name  for  the  plot  file  being 
used. 

"XXXX.PL" 

wnere  the  X's  are  input  by  the  user. 

IFPERM  is  read  in  with  FQRMAT(2A2)  in  subroutine  PLTKN. 
IPERM  and  IFPERM  are  written  to  block  0  of  the  disk  file 
"V2SFL"  by  subroutine  V2SWP. 
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LOCUTM  Common  Area 


This  common  area  is  used  to  store  a  location  as  a  UTM  value. 
COMMON/LOCUTM/IA(4) 

Where: 

IA  Is  either  an  observer  location  (perspective  and  radar 

terrain  mask  plots)  or  an  initial  or  terminal  point  to  be 
used  in  the  line  of  sight  plot. 


IA  is  entered  by  the  user  in  subroutine  MGCORD  as  an  8 
digit  UTM  value  in  mil  grid  form  (EEEENNNN);  it  is  read 
from  unit  number  IRU  with  F0RMAT(4A2). 


10SBLK  Common  Area 


This  common  area  contains  user  inputs  for  the  1 ine-of-sight  plot. 
The  variables  in  the  LOSBLK  common  area  are  mostly  input  or  computed  in 
subroutine  INLOS. 

C0MM0N/L0S8LK/LDMS{4,2,2) ,XL(2,2) ,NPTS,NCQPY, IPRT, DELTA, ANGLE ,GEQDIS 
Where: 

LDMS  Gives  the  latitude  and  longitude  of  the  initial  and 

terminal  points  of  the  plot  in  degrees,  minutes,  seconds, 
and  direction  as  follows: 


LDMS(K,1 ,1 ) 

K=1 ,4 

initial 

point 

latitude 

LDMS (K, 2,1 ) 

K=1  ,4 

initial 

point 

longitude 

LDMS(K,1 ,2) 

K=1 ,4 

termi nal 

poi  nt 

latitude 

LDMS(K,2,2) 

K=1 ,4 

termi nal 

poi  nt 

1 ongi tude 

XL  Gives  the  location  of  the  end  points  as  follows: 

If  the  WGS  system  is  being  used  (INPUT  =  1),  XL  gives 
these  locations  in  signed  seconds,  with 

XL ( 1 ,1 )  =  latitude  of  initial  point 

XL ( 2 , 1 )  =  longitude  of  initial  point 

XL ( 1 ,2)  =  latitude  of  terminal  point 

XL(2,2)  =  longitude  of  terminal  point 


L0S8LK  Common  Area  (continued) 


NPTS 


NCOPY 

IPRT 


If  the  mil  grid  system  is  being  used  (INPUT  =  2),  XL 
gives  these  locations  as  northing  and  easting  values  in 
meters  with 


XL  (1,1) 
XL  ( 2 , 1 ) 
XL  ( 1 , 2 ) 
XL  ( 2 , 2 ) 


northing  of  initial  point 
easting  of  initial  point 
northing  of  final  point 
easting  of  final  point 


XL  is  computed  in  subroutine  INLOS,  using  calls  to 
subroutine  DMSSEC  (if  WGS  system)  or  to  subroutine  MGCORD 
(if  mil  grid  system). 

Is  the  number  of  points  along  the  line-of-sight  profile 
(2  NPTS  750).  If  a  value  of  0  is  entered,  a  default 
value  of  approximately  100  meter  spacing  between  points 
wi I l  be  used. 


Is  the  desired  number  of  output  copies,  (t.  10). 

Is  the  option  for  plot  and/or  tabular  print  of  profile, 
with 


0  profi le  plot  only 

1  profi le  plot  and  table 

2  tabular  print  only 
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LOSBLK  Common  Area  (continued) 


DELTA 


ANGLE 


GEODIS 


Is  the  distance  in  meters  between  points  on  the  line  from 
the  initial  to  the  terminal  point. 

Is  the  azimuth  angle  in  degrees  between  the  initial  and 
terminal  points. 

Gives  the  geodetic  distance  in  meters  between  initial  and 
terminal  points. 

NPTS.NCOPY,  and  IPRT  are  input  by  the  user  in  subroutine 
INLOS.  DELTA, ANGLE,  and  GEODIS  are  computed  by  the  main 
program,  LMAIN. 
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MG8LK  Common  Area 


These  four  variables  are  computed  by  subroutine  MGSET 
based  on  user  inputs.  (See  also  the  ZONEZ  Common  Area). 
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PARAM  Common  Area 


The  PARAM  common  area  contains  parameters  needed  in  conversions 
between  latitude-longitude  and  UTM  (Universal  Transverse  Mercator) 
coordinates. 


CGMMON/PARAM/ 1 SPHER , I H , I  ZONE , REAST , RNORTH 


Where: 

ISPHER  Specifies  which  spheroid  code  is  to  be  used  in  the 
computation  as  follows: 


ISPHER  Value 
1 
2 

3 

4 

5 

6 

7 

8 


Spheroid 

Clarke  1880  -  spheroid 

International 

Clarke  1866 

Bessel 

Everest 

Walbeck 

Southeast  Asia 
Krasovskiy 


IH  Specifies  whether  a  geographic  location  is  in  the 

northern  or  southern  hemisphere,  with 


IH  Value 
1 
2 


IZONE  Is  the  UTM  zone 


Hemi sphere 

Northern 

Southern 


REAST  Is  an  easting  coordinate 

RNORTH  Is  a  northing  coordinate 

ISPHER, IH,  and  IZONE  are  computed  in  subroutine  TITLE. 


209 


PARPRS  Common  Area 


The  PARPRS  common  area  contains  parameters  needed  to  plot  a  grid 
and/or  feature  data  on  a  perspective  plot. 

CQMMON/PARPRS/NR , AZ1  , AZN,DAZ , RMAX ,DR , XL ( 2 ) 

Where: 

NR  Precise  use  not  determined.  These  are  variables 

AZ1  calculated  by  PPLOT  and  are  azimuth  values  related  to  the 

AZN  radial s. 

DAZ  Is  the  spacing  between  radial s.  (radians) 

RMAX  Is  the  total  radial  length,  (meters) 

DR  Is  the  spacing  along  the  radial,  (meters) 

XL  XL ( 1 )  is  the  latitude  of  the  observer  in  signed  seconds 

(if  W6S  system)  or  the  northing  value  for  the  observer 
(if  mil  grid  system). 

XL(2)  is  likewise  the  observer  longitude  (if  WGS)  or 
easting  (if  mi  1  grid). 

DAZ, RMAX, DR,  and  XL  are  computed  in  subroutine  SCALPR 
based  on  values  in  the  PRSBLK  common  area. 

Note:  The  use  of  the  PARPRS  common  area  is  quite 
confusing,  because  it  is  used  very  differently  by  various 
subroutines  as  follows: 
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Program : 


Form  of  Common 


PERSP  C0MM0N/PARPRS/IPRS(5) 

PPLOT  C0MM0N/PARPRS/AZ1 ,AZN,NR 

FTSWP  COMMON/PARPRS/JPRS(5) 

FTMAIN,SCALPR  COMMON/PARPRS/NR , AZ1  , 

AZN,DAZ,RMAX,DR,XL(2) 


Although  no  specific  bug  has  been  identified,  tne 
differing  lengths  of  this  common  block  and  the  different 
order  of  some  of  its  variables  is  troublesome.  The 
potential  for  a  bug  to  exist  here  seems  possible  and 
should  be  investigated. 


PBUF  Common  Area 


The  PBUF  common  area  contains  the  elevations  of  the  points  along  a 
profile.  These  elevations  are  computed  by  the  programs  in  PROFl.SV  and 
are  written  to  a  disk  file  by  subroutine  PRFWRT.  They  are  later  read 
from  the  disk  file  (profile  file)  by  subroutines  PRFRD  or  JPRFRL)  and 
used  by  the  plotting  programs. 

COMMON/PBUF/MBLK , NWRD , MWRQ , I PBUF ( 256 ) 


Where: 

MBLK  Is  the  number  of  the  next  block  of  data  to  be  written  to 

(or  read  from)  the  disk  file. 

NWRD  Is  the  size  of  the  buffer  being  written  to  (or  read  from) 

disk.  (256  words) 

MWRD  MWRD  is  the  number  of  words  filled  in  the  buffer. 

IPBUF  is  the  256  word  buffer  containing  the  elevation  values. 

The  elevation  values  are  computed  by  subroutines  ALT  or 
NALT  and  are  stored  in  the  POINT  Common  Area.  These 
values  are  written  to  the  disk  file  on  Unit  number  21 
(profile  file)  by  means  of  the  buffer  array  IPBUF. 
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PCNT  Common  Area 


The  PCNT  common  area  contains  information  about  how  many  profile 
points  were  computed  from  a  polynomial  data  base. 

COMMON/PCNT /NCR , NDB 


Where: 

NCR  Is  the  number  of  profile  points  which  have  been  computed 

from  core. 


NDB  Is  the  number  of  points  from  the  data  base. 


NCR  and  NDB  are  computed  in  subroutines  ALT  and  NALT. 


PLOTVR  Common  Area 


The  PLOTVR  common  area  contains  information  needed  by  the  feature 
data  plotting  programs. 

COMMON/PLOTVR/ INPUT , I  PLOT , I NRREC , I CONV 


Where: 

INPUT  Is  used  to  specify  whether  the  user  inputs  for  the  plot 
have  been  in  the  WGS  or  mil  grid  system,  with 

1  =  WGS 

2  =  UTM 


IPLOT  Indicates  which  type  of  plot  is  being  made,  with 


IPLOT  VALUE 


PLOT  TYPE 


1 

2 

3 

4 


contour  plot 
radar  terrain  mask  plot 
3-diinensional  plot 
perspective  plot 


INPUT  And  IPLOT  are  computed  by  subroutine 
CMAIN.PERSP.RTM,  or  THREED  depending  on  which  type  of 
plot  is  being  made. 

INRREC  Is  the  number  of  records  in  a  feature  data  file. 

Subroutine  FTOPEN  obtains  INRREC  by  reading  the  header 
(block  0)  of  the  feature  data  file.  ( See  the  subroutines 
in  MAINFT.SV  for  the  creation  and  modification  of  feature 
data  files). 
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PLOTVR  Common  Area  (continued) 


ICONV 


Specifies  the  type  of  conversion  to  be  done  between  WGS 
and  rail  grid  units  while  plotting  feature  data,  with 

ICONV  VALUE  CONVERSION 


0 

1 

-1 


none 

UTM  to  WGS 
WGS  to  UTM 


ICONV  is  computed  in  subroutine  FTOPEN  based  on 
information  obtained  by  reading  block  0  of  the  feature 
data  file. 
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PLTBF  Common  Area 


The  PLTBF  Common  Area  is  used  to  write  the  plot  commands  from  the 
FEED  programs  into  the  plot  file.  Subroutines  PL2  and  VPL2  in  PLTRN.SV 
subsequently  use  this  common  to  read  the  commands  back  in  from  disk. 

COMMON/PLTBF /NBIK , NWRD , I PBUF (256 ) 

Where: 

NBLK  Current  disk  block  number 

NWRD  Current  word  position  in  block 

IPBUF  Array  in  which  the  commands  are  stored  prior  to  writing 
to  disk  and  also  into  which  the  commands  are  later  read 
back  in  from  disk. 
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PLTCO  Common  Area 


The  PLTCO  common  area  is  used  to  process  plotting  commands  by  the 
Tektronix  and  Versatec  plotting  programs. 

C0MM0N/PLTC0/IPLT(6) ,IDSH(6) , INUM(1 2) ,ISYM(48) , ICOP ( 2 ) 

COMMON/PLTCO/ I VPLT (6 ) , I VDSH { 6 ) , I VNUM{ 1 2 ) , I VYSM( 48 ) 

Where:  Subroutines  PL2  and  VPL2  read  plot  commands  from  the  plot 

file  (that  were  created  by  the  FEED  versions  of  NUMBER, 
PLOT,  SYMBOL,  etc.).  Depending  on  the  type  of  plot 
command,  the  subroutines  move  the  values  into  the 
corresponding  variables  before  passing  them  to  the 
Tektronix  and  Versatec  PLOT, DASH, NUMBER, SYMBOL,  and  COPY. 
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PLTSAV  Common  Area 


The  PLTSAV  common  area  is  used  by  all  five  plot  types  to  store  the 
coordinates  of  the  plot  origin. 

COMMON/PLTSAV/XO.YO 


Where: 

X0,Y0  Gives  the  X  and  Y  screen  coordinates  of  the  plot  origin 
in  inches. 
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PNTS  Common  Area 


The  PNTS  common  area  contains  statistics  on  the  use  of  the  data 
base  file  by  the  profile  computing  programs  in  "PROFL.SV". 

COMMON/PNTS/ I ALT, ICOUNT 

Where: 

IALT  Is  the  number  of  points  computed  from  the  data  base  file. 

ICOUNT  Is  the  number  of  points  requested  from  outside  the  data 

base. 

IALT  and  ICOUNT  are  computed  by  subroutine  ALT  (for  a 
polynomial  data  base)  or  by  subroutine  NALT  (for  a 
gridded  data  base).  These  variables  are  printed  on  the 
Tektronix  terminal  by  subroutine  STAT. 
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POINT  Common  Area 


The  POINT  common  area  contains  the  elevations  in  meters  of  the 
points  along  a  terrain  profile. 

COMMON/POINT/ I A (256, 2) 

Where: 

IA  This  array  contains  the  elevations  in  meters  of  points 

along  a  profile.  The  IA  array  is  filled  by  subroutine 
PTSSEC  (contour  plot  and  3-dimensional  plot)  or  by 
subroutine  PTS  (1 ine-of-sight,  perspective,  and  radar 
terrain  mask  plots.)  For  each  point  along  a  profile, 
these  subroutines  call  subroutine  ALT  (polynomial  data 
base)  or  NALT  (gridded  data  base)  to  obtain  an  elevation 
for  the  point. 

The  IA  array  is  written  to  the  profile  file  by  subroutine 
PRFWRT  for  later  use  by  the  plotting  programs. 
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PPLTS  Common  Area 


The  PPLTS  common  area  contains  information  needed  by  the  Versatec 
supplied  plotting  programs. 

C0MMON/PPLTS/MODL(19),NDOT(19),DENS(19),NMODL,IOPEN,IWORD,MODEL,XFACT,YFACT, 

I 2FLG, OUT, STRIP, STRIPO, SPACE, SCALE, UNITS, XMIN,XMAX,YMIN,YMAX,XSTART,YSTART, DEN, 
NIBS.NSTRIP 

Where:  Some  of  the  variables  in  the  PPLTS  Common  Area  are 

initialized  by  VPL2  (i.e.  STRIP, STRIPO, XMIN.XMAX, YMIN, 
and  YMAX),  which  obtains  them  from  block  0  of  the  disk 
file  "V2SFL".  (See  also  subroutine  V2SWP  which  writes 
this  information  to  the  disk,  and  the  VPRM  Common  Area). 

Other  variables  are  used  internally  by  the  Versatec 
plotting  routines. 


PRFCM  Common  Area 


The  PRFCM  common  area  contains  information  based  upon  user  inputs 
about  the  type  of  plot  being  made. 

DIMENSION  PRF (1 6) 

COMMON/PRFCM/IPRF(32) 

EQUIVALENCE  (IPRF, PRF) 

Where: 

IPRF  Contains  the  following  information: 

I PRF ( 1 )  Appears  to  no  longer  be  used. 

IPRF (2)  Indicates  which  type  of  plot  is  being  made 

IPRF (2)  Value  Plot  Type 

1  line-of-sight  plot 

2  radar  terrain  nask  plot 

3  contour  plot 

5  perspective  plot 

6  3-dimensional  plot 


The  remaining  elements  of  the  IPRF  array  contain 
information  based  on  user  inputs  made  in  subroutines 
INCON, INLOS,  INPRS.INRTM  or  INTHRD  depending  on  which 
type  of  plot  is  being  made. 

However,  the  IPRF  array  is  actually  filled  by  the  main 
programs  CMAIN.LMAIN,  etc.  The  IPRF  array  is  used  by 
subroutines  JPRFRT  and  WPRFRT  which  swap  to  the  profile 
computing  programs  in  "PR0FL.SV".  These  subroutines  give 
the  user  a  choice  of  using  an  existing  profile  file  or 
creating  a  new  one.  If  he  chooses  to  use  an  existing 
file,  then  the  file  header  (block  0)  is  read  and 
information  in  the  file  header  is  compared  with  tne 
values  in  the  IPRF  array  as  a  check  on  whether  the 
profile  file  is  suitable  for  the  type  of  plot  being  made. 
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PRFIL  Common  Area 


C0MM0N/PRFIL/IPRFL(4) 


Where: 

IPRFL  Is  the  unique  4  character  name  for  the  profile  file. 
"XXXX.PF" 

wnere  the  X 1 s  are  input  by  the  user. 

IPRFL  is  read  in  with  format  (2A2)  in  subroutine  JPRFRT 
and  WPRFRT. 
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°RPT  Common  Area 


The  PRPT  common  area  stores  variables  needed  by  subroutine  PRSLIN 
to  plot  a  feature  line  between  2  positions  on  a  perspective  plot. 

C0MM0N/PRPT/IC(2) ,NC (2) ,P (2 ,2) 

Where: 

IC  Is  a  2  dimensional  array  containing  the  profile  numbers 

for  the  2  positions. 

NC  Is  a  2  dimensional  array  containing  the  point  number 

along  the  profile  for  the  2  positions. 

P  Is  an  array  containing  the  coordinates  in  inches  of  the  2 

poi nts  as  fol 1 ows : 


P(U) 

= 

X  coordinate 

P  ( 2 » 1 ) 

= 

Y  coordinate 

P(l,2) 

= 

X  coordinate 

P(2,2) 

= 

Y  coordinate 

IC  and 

NC  are 

computed  by  subroutines  CALCPR 

PRS8D. 

P  i  s 

computed  by  GRDPRS  and  PRSBD. 
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PRS3LK  Common  Area 


This  common  area  contains  the  inputs  for  the  perspective  plot 
option.  The  variables  in  the  PRSBLK  common  area  are  input  or  computed 
in  subroutine  INPRS. 

C0MM0N/PRSBLK/LDMS(4,2) ,XL(2) ,AZ0 ,0$T ,DSTM,DAZ ,NPTS ,NSCAN ,HT  , VANG, VEX, NCOP Y ,  ICR 
Where: 

LOMS  Gives  the  latitude  or  longitude  of  the  observer  in 

degrees,  minutes,  seconds,  and  direction,  as  follows: 

LDMS(J,1)  J  =  l,4  latitude  of  observer 
LDMS(J,2)  0=1,4  longitude  of  observer 

XL  Gives  the  location  of  the  observer  as  follows: 

If  the  WGS  system  is  being  used  (INPUT  =  1),  XL  gives  the 
latitude  or  longitude  of  the  observer  in  signed  seconds, 
with 

XL ( 1 )  =  latitude  of  observer 

XL(2)  =  longitude  of  observer 

If  the  mil  grid  system  is  being  used  (INPUT  =  2),  XL 
gives  the  observer's  position,  with 

XL ( 1 )  =  the  northing  coordinate  of  the  observer 

XL ( 2 )  =  the  easting  coordinate  of  the  observer 
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PRS3LK  Common  Area  (continued) 


AZO 

DST 

DSTM 

OAZ 

NPTS 

NSCAN 

HT 

VANG 

VEX 

NCOPY 

ICR 


is  the  bearing  of  the  perspective  view  in  degrees. 

is  the  total  radial  length  in  meters. 

is  the  spacing  along  a  radial  in  meters. 

is  the  spacing  between  radials  in  degrees. 

is  the  number  of  points  along  a  radial. 

is  the  number  of  radials. 

is  the  height  of  the  observer  in  meters. 

is  one  half  the  field  of  view  in  radians. 

is  the  vertical  exaggeration  factor.  This  must  be 

greater  than  or  equal  to  1. 

is  the  desired  number  of  copies.  (  10) 

is  used  to  specify  the  plot  options  chosen  by  the  user  as 

fol lows: 

0  grid  1 ines 

1  range  lines 

2  contour  levels 

3  range  lines  with  grid  lines 

4  contour  levels  with  grid  lines 

LDMS , AZO, HT, DST, DSTM,  and  DAZ  are  input  by  the  user  in 
INPRS:  they  are  read  from  unit  number  IRD. 

NPTS, NSCAN, VANG, VEX,  and  NCOPY  are  computed  f rom  user 
inputs  during  the  same  subroutine. 
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PTBLK  Common  Area 


The  PTBLK  Common  Area  contains  variables  used  in  plotting  feature 
data  on  perspective  and  three  dimensional  plots. 

COMMON/PTBIK/JA ,JZ , JNUM, l PT(2 , 768) 

Where:  The  exact  contents  of  these  variables  is  as  yet 

undetermined.  The  confusion  is  related  to  the  unresol  zed 
uses  of  variables  in  Common  Areas  PTFIL  and  PARPRS.  JA 
and  JZ  are  used  by  PTRD  to  determine  how  many  blocks  to 
read  in  from  the  point  file.  JNUM  is  initialized  by 
FTMAIN  to  the  value  NPTS/768  which  is  used  in  the 
calculation  of  JA  and  JZ.  IPT  is  the  array  which 
receives  the  data  from  the  point  file.  All  of  these 
variables  are  used  by  PTCALC  to  calculate  the  screen 
position  for  a  profile  point  position. 

Note:  This  common  is  contained  in  subroutines  GRDTHR  and 
GRDPRS,  but  no  use  can  be  determined.  It  appears  that 
the  common  block  could  be  removed  from  these  two 
subroutines. 


227 


PTfIL  Common  Area 


The  PTFIL  Common  Area  contains  data  needed  to  plot  featjre  data  for 
the  perspective  and  3-0  programs. 

COMMON/PTFIL/NSCAN,NPTS,NBLK 

Where: 

NSCAN  Is  the  number  of  profiles. 

NPTS  Is  the  number  of  points  along  a  profile. 

NBLK  Is  the  disk  block  number  in  point  file. 

NOTE:  This  common  appears  to  be  used  differently  by  different 
programs.  The  variable  name  NSCAN  occurs  in  other  common  blocks, 
so  often  PTFIL  uses  the  array  NN(3)  for  these  variables  to  avoid 
conflict.  See  also  the  PARPRS  common  area  in  which  the  same 
confusions  currently  exist. 
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PTFT  Common  Area 

The  PTFT  common  area  contains  information  which  specifies  whether  a 
grid  or  feature  data  is  to  be  drawn  on  a  perspective  or  3-dimensional 
plot. 

COMMON/PTFT/IPTF , IADP 

Where: 

IPTF  Indicates  whether  a  grid  or  feature  data  is  to  be  drawn 

on  the  plot,  .as  follows: 

0  Neither  grid  nor  feature  data 
1  Either  a  grid  or  feature  data 

Subroutines  PPLOT  and  TPLOT  swap  to  the  feature  data 
plotting  programs  in  "FTMAIN.SV”  only  if  IPTF  =  1. 

IADP  Block  counter  used  to  extend  the  point  file  by  a 

sufficient  number  of  blocks  to  store  hidden  point 
information  for  plotted  data  (See  subroutine  PPLOT). 


R£C  Common  Area 


The  RFC  common  area  contains  information  from  the  header  block 
(block  0)  of  a  feature  data  file. 

COMMON/REC/IBUF (256) , IWO 

Where: 

IBUF  Is  a  256  word  array  which  is  used  for  temporarily  storing 
information  from  the  feature  data  file  header.  The  IBUF 
array  is  filled  by  subroutine  FTOPEN  (for  the  perspective 
or  3-dimensional  plot  types)  or  by  RDHDFT  (for  the 
contour  or  radar  terrain  mask  plot  types). 


2  30 


RECORD  Common  Area 


The  RECORD  common  area  contains  information  about  a  record  in  a 
feature  data  file.  (See  also  ADDREC,  CHANGE,  and  MAINFT  which  are  used 
for  creating  and  modifying  feature  data  files). 

COMMON/RECORD/ I REC ( 1 3 ) , POS ( 40 ) 


Where: 

IREC  This  array  describes  a  feature  data  record  as  follows: 


IREC  (1  ) 

IREC ( 2 ) 

IREC ( 3 )  -  IREC(1 2) 
IREC ( 1 3) 


the  record  number 
the  record  code 
A  20-character  description  of 
the  record 

The  number  of  points  in  a 
boundary  record 


The  record  code  and  description  are  input  from  the 
terminal  in  subroutines  ADDREC  and  CHANGE.  The  record 
code  is  a  number  from  1  to  99. 


POS  The  POS  array  contains  the  location  of  each  point  in  a 

feature  data  file  either  as  a  latitude-longitude  value  in 
signed  seconds  or  as  a  northing-easting  value. 
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REF VAL  Common  Area 


The  REFVAL  common  area  contains  variables  which  specify  the 
location  of  reference  points  used  when  feature  data  is  being  input  by 
the  digitizer.  (Four  reference  points  must  be  input). 

COMMON/REF VAL/XVAL(4) , YVAL(4) , I XPT(4) , I YPT(4) , SI X,S2X, SI Y,S2Y 

Where: 

XVAL  Is  the  longitude  of  a  point  in  signed  seconds  (WGS 
system)  or  its  easting  value  (UTM  system). 

YVAL  Is  the  latitude  of  a  point  in  signed  seconds  (WGS)  or  its 

northing  value  (UTM). 

XVAL  and  YVAL  are  obtained  from  user  inputs  by  program 
MAINFT. 

IXPT  Gives  the  X  coordinate  of  a  point  obtained  from  the 
digitizer. 

IYPT  Gives  the  Y  coordinate  of  a  point  obtained  from  the 
digitizer. 

IXPT  and  IYPT  are  read  in  from  the  digitizer  by  MAINFT. 

SIX  Scale  factors  computed  from  the  inputs 

S2X  to  rotate,  translate,  and  convert 

SI Y  subsequent  digitizer  inputs. 

S2Y 


RIDGE  Common  Area 


COMMON/RIDGE/ I RDGE 

Where: 

IRDGE  Is  used  to  specify  the  ridge  line  option  as  follows: 

IRDGE  =  0  Do  not  plot  all  ridge  lines. 

IRDGE  =  1  Plot  all  ridge  lines. 

IRDGE  is  automatically  set  equal  to  1  if  the  user  selects 
the  'range  lines  only*  or  'range  lines  and  grid'  options. 
If  the  user  chooses  one  of  the  other  options,  he  is  asked 
whether  he  wants  ridge  lines  plotted.  (See  subroutine 
PLTOPT  for  a  description  of  these  plot  options). 


RTM8LK  Common  Area 


This  common  area  contains  inputs  for  the  radar  terrain  masking  plot 
option.  The  variables  in  the  RTMBLK  common  area  are  input  or  computed 
in  subroutine  INRTM. 


COMMON/RTMBLK/IFLAG, ICH, LDMS (4, 2) ,RL (2) ,R,DR,BI ,BF ,DB,NP,NR , IH, IFH.NCUPY 


Where: 

IFLAG  IFLAG  is  used  to  specify  the  terrain  masking  option 
chosen  by  the  user,  as  follows: 


1  safe  area  contours 

2  acquisition  contours 

3  safe  area  below  given  ceiling 

4  fields  of  fire 


ICH  ICH  is  used  to  specify  the  cross  hatching  option,  with 

0  cross  hatching  applied 

1  no  cross  hatching 


LDMS  Gives  the  latitude  or  longitude  of  the  observer  in 

degrees,  minutes,  seconds,  and  direction,  as  follows: 


LDMS(J,1)  J=1 , 4  latitude  of  observer 

LDMS(J,2)  J=l,4  longitude  of  observer 

LDMS  is  input  by  the  user  in  subroutine  INRTM;  it  is  read 
from  unit  number  IRD  with  FORMAT  (13, 212, A! ). 


RTMBLK  Common  Area  (Continued) 


RL  Gives  the  location  of  the  observer  as  follows: 

If  the  WGS  system  is  being  used  (INPUT  =  1 ) ,  RL  gives  the 
latitude  or  longitude  of  the  observer  in  signed  seconds, 
with 

RL ( 1 )  =  latitude  of  observer 

RL(2)  =  longitude  of  observer 

If  the  mil  grid  system  is  being  used  (INPUT  =  2),  RL 
gives  the  observer's  position,  with 

RL(1)  =  the  northing  coordinate  of  the  observer 

RL(2)  =  the  easting  coordinate  of  the  observer 

RL  is  computed  in  subroutine  INRTM,  using  calls  to 
subroutine  DMSSEC  (if  WGS  system)  or  to  subroutine  rfGCORD 
( i f  mi  1  grid  system). 

R  R  is  the  radius  of  coverage  in  meters. 

OR  DR  is  the  spacing  along  a  radial  in  meters. 

BI  31  is  the  bearing  of  the  first  radial  in  degrees. 
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RTMBLK  Common  Area  (Continued) 

8F  BF  is  the  bearing  of  the  last  radial  in  degrees. 

OB  OB  is  the  spacing  between  radials  in  degrees. 

NP  NP  is  the  number  of  points  along  a  radial. 

NR  NR  is  the  number  of  radials. 

IH  IH  is  the  observer's  height  above  the  terrain  in  meters. 

IFH  IFH  is  the  ceiling  height  in  meters.  This  is  used  when 

IFLAG=3  (masking  option  3). 

NCOPY  NCOPY  is  the  desired  number  of  plot  copies. 

IFl_AG,ICH,LDMS,DR,BI,8F,IH,  and  IFH  are  input  by  the  user 
in  subroutine  INRTM.  Rl,R,NP,NR,  and  NCOPY  are  computed 
from  user  inputs  during  the  same  subroutine. 
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RTMPAR  Common  Area 


The  RTMPAR  common  area  contains  plot  parameters  needed  by  the 
subroutines  which  plot  feature  data  on  the  radar  terrain  mask  plot. 

C0MM0N/RTMPAR/IARC,SC,RA0,AZ1 ,AZ2,XX1 (2,2) 

Where: 

IARC  Indicates  whether  or  not  the  radar  terrain  nask  plot  is  a 

full  circle  plot,  i.e.  whether  the  difference  between  the 
final  and  initial  bearing  is  360°.  IARC  =  0  if  the  plot 
is  a  full  circle;  otherwise  it  is  equal  to  1. 

SC  Is  the  plot  scale  in  inches/meter. 

RAD  Is  the  radius  of  coverage  scaled  to  inches. 

AZ1  Is  the  bearing  of  the  first  radial  in  radians. 

AZ2  Is  the  bearing  of  the  last  radial  in  radians. 

XXI  Gives  the  location  of  the  observer. 

These  variables  are  computed  by  subroutines  RPLOT  and 
RTMPLT  based  on  values  in  the  RTMBLK  Common  Area. 
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SCALE  Common  Area 


The  SCALE  common  area  contains  variables  needed  to  draw  a  grid  on 
the  radar  terrain  mask  plot. 

COMMON/SCALE/SC , XMAX , XM I N, YMAX , YMI N 

Where: 

SC  Is  the  plot  scale  in  inches/meter. 

XMAX  Is  the  maximum  X  coordinate  for  the  plot  in  meters. 

XMIN  Is  the  minimum  X  coordinate  for  the  plot  in  meters. 

YMAX  Is  the  maximum  Y  coordinate  (meters). 

YMI.N  Is  the  minimum  Y  coordinate  (meters). 

These  variables  are  computed  by  subroutine  RTMPLT. 
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SCOM  Common  Area 


COMMON/SCOM/SCX,SCY 

These  are  x  and  y  scale  factors  for  plotting  feature  data 
on  perspective  plots  and  are  computed  by  subroutine 
DRFTPR  as  follows: 

If  the  mil  grid  system  is  being  used  (INPUT  =  2 ), 

SCX=1 
SC  Y= 1 

If  the  WGS  system  is  used  (INPUT  =1), 

SCY  =  30.9372 

SCX  =  30.9929  x  COS(YAV)  where  YAV  =  latitude  of  the 
observer  (converted  to  radians) 


Where: 

SCX 

SCY 
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SEG  Common  Area 


The  SEG  common  a^ea  contains  information  needed  to  plot  boundary 
type  feature  data  on  all  plot  types  except  1 i ne-of-si ght.  This 
information  concerns  the  locations  of  the  boundary  point  to  be  plotted 
and  the  boundary  point  most  recently  plotted. 

COMMON/ SEG/ 1 OLD ,P0LD(2 ) , I  NEW , P NEW ( 2 ) , 1ST , I BU 

Where: 

IOLD  Specifies  whether  the  boundary  point  previously  plotted 

is  inside  or  outside  the  plot  ooundaries. 

POLO  Gives  the  coordinates  of  the  boundary  point  previously 
plotted,  with 

POLD ( 1 )  -  X  coordinate 

P0LD(2)  -  Y  coordinate 

I  NEW  Specifies  whether  the  boundary  point  currently  being 
plotted  is  inside  or  outside  the  plot  boundaries. 

PNEW  Gives  the  coordinates  of  the  boundary  point  currently 
bing  plotted. 

3NEw'(l)  -  X  coordinate 

PNEW(2)  -  Y  coordinate 


SEG  Common  Area  (continued) 


1ST  A  value  of  1ST  =  0  is  used  to  indicate  that  the  point 

being  plotted  is  the  first  boundary  point. 

IBD  Undetermined  -  possibly  no  longer  used. 

INEW,IOLD,PNEW  and  POLO  are  computed  in  subroutines 
CONTBO.PRSBD,  RTMBQ,  or  THRBD  depending  on  which  type  of 
plot  is  being  made. 
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SWPCM  Common  Area 


The  SWPCM  common  area  is  a  buffer  array  used  to  simplify  the 
transfer  of  information  to  and  from  disk. 

COMMON /SWPCM/ I COM (256) 

Where: 

ICOM  This  256-word  array  is  used  for  temporary  storage  of 
information  being  transferred  to  or  from  a  disk  file. 

For  example,  subroutine  WPRFRT,  before  swapping  to  the 
profile  computing  programs  in  "PROFL.SV",  fills  the  ICOM 
array  with  information  from  the  Common  blocks,  and  writes 
it  to  a  disk  file.  Subroutine  PROFL  then  reads  the 
information  from  the  disk  and  moves  it  back  into  the 
Common  blocks. 


TEK  Common  Area 


COMMON/TEK/IOPT 

This  common  is  included  in  the  main  programs,  but  is  found  in  no 
other  routines.  Therefore,  it  appears  to  be  obsolete  and  should  be 
removed  from  the  source  code. 


TEKOPT  Common  Area 


COMMON/TEKOPT/INUSER,XOAIG,YORIG,XLF.N,YLEN 


This  common 
initialized  in  a 
other  routines, 
should  be  tested 
code. 


is  included  in  the  main  programs  and  its  values  are 
DATA  statement.  However,  the  common  is  found  in  no 
Therefore,  it  appears  to  be  obsolete  and  the  programs 
to  determine  whether  it  can  be  removed  from  the  source 
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THRSLK  Common  Area 


This  common  area  contains  the  inputs  for  the  three  dimensional  plot 
option.  The  variables  in  the  THRBLK.  common  area  are  input  or  computed 
i n  subroutine  INTHRD. 

C0MM0N/THRBLK/LDMS(4,2,2) ,RL(2>2),D(2),N(2) , I V, IANG, IZMIN,VEX,NCOPY , ICR 


Where: 

LDMS  Gives  the  latitude  or 

minutes,  seconds,  and 

LDMS(K,1 ,1 )  K=1 ,4 

LDMS(K,2,1)  K=1 ,4 

LDMS(K,1 ,2)  K=1 ,4 

LDMS(K,2,2)  K=1 ,4 

RL  Gives  the  locations  > 


longitude  of  a  boundary  in  degrees, 
direction,  as  follows: 

latitude  of  southern  boundary 
latitude  of  northern  boundary 
longitude  of  western  boundary 
longitude  of  eastern  bondary 

the  boundaries  as  follows: 


If  the  WGS  system  is  being  used  (INPUT  =  1),  RL  gives  the 
latitude  or  longitude  of  a  boundary  in  signed  seconds, 
with 


RL(l.l) 
RL (2,1 ) 
RL (1,2) 
RL(2,2) 


latitude  of  the  southern  boundary 
latitude  of  the  northern  boundary 
longitude  of  the  western  boundary 
longitude  of  the  eastern  boundary 


If  the  mil  grid  system  is  being  used  (INPUT  =  2),  RL 
gives  the  boundaries  in  meters 


RL(1  ,1 )  = 

southern  boundary 

RL  ( 2 , 1 ) 

northern  boundary 

RL  ( 1 , 2 )  = 

western  boundary 

RL(2,2)  = 

eastern  boundary 

THRBLK  Common  Area  (Continued) 

RL  is  computed  in  subroutine  INTHRD,  using  calls  to 
subroutine  DMSSEC  (if  WGS  system)  or  to  subroutine  MGBQUN 
(if  mil  grid  system). 

0(1)  is  the  latitude  interval  in  seconds  (if  the  WGS 
system  is  being  used)  or  the  northing  interval  in  meters 
(if  the  mil  grid  system  is  being  used). 

0(2)  is  the  longitude  interval  in  seconds  (WGS  system)  or 
the  easting  interval  in  meters  (mil  grid  system). 

N(l)  is  the  number  of  profiles. 

N(2)  is  the  number  of  points  along  a  profile. 

IV  takes  on  the  following  values: 

1  if  JV= ' N * 

2  if  JV='S' 

3  If  JV-'E* 

4  if  JV= ‘ W ' 

JV  is  the  view  face  (boundary  closest  to  the  projection 
plane)  and  is  input  by  the  user. 
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THR8LK  Common  Area  (Continued) 


IANG 


IZMIN 

VEX 

NCOPY 

ICR 


IANG  indicates  the  relationship  between  view  face  and  the 
observer  position.  It  takes  on  the  following  values: 

-1  If  a  rotation  of  a  *' J V"  pointing  vector  into  a  "JA" 
pointing  vector  would  be  clockwise. 

+1  If  the  same  rotation  would  be  counterclockwise. 

0  If  the  "JV"  pointing  and  "JA"  pointing  vectors  are 

paral lei . 

JA  is  the  direction  from  which  the  area  is  viewed,  and  is 
input  by  the  user. 

IZMIN  is  the  reference  elevation  in  meters. 

VEX  is  the  vertical  exaggeration  factor.  This  must  be 
greater  than  or  equal  to  1. 

NCOPY  is  the  desired  number  of  plot  copies.  (Currently, 
this  is  set  equal  to  1 . ) 

ICR  is  used  to  specify  the  plot  options  chosen  by  the 
user  as  foil ows : 

0  grid  1 i nes 

1  range  lines 

2  contour  levels 

3  range  lines  witn  grid  lines 

4  contour  levels  with  grid  lines 
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TKTRNX  Common  Area 


The  TKTRNX  common  area  contains  information  needed  by  the  Tektronix 
supplied  plotting  programs. 

C0MM0N/TKTRNX/ITKT(79) 

Where: 

ITKT  Work  area  used  internally  by  the  Tektronix  routines.  The 
common  is  also  located  in  LMAIN.PLTRN,  and  RMAIN 
presumably  to  preserve  certain  values  between  overlays. 
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UNITS  Common  Area 


COMMON/UN I TS/IOATA, INPUT, ICON V 

Where: 

IDATA  Gives  the  type  of  units  the  data  base  is  stored  in.  Its 
value  is  stored  in  the  data  base  header  record. 

1  =  WGS 

2  =  UTM 

INPUT  Is  used  to  specify  whether  the  input  data  will  be  entered 
in  the  WGS  or  mil  grid  system. 

1  =  WGS 

2  =  mi  1  grid 

INPUT  is  specified  by  the  user  in  subroutine  SETUP. 

ICONV  Is  used  to  specify  the  type  of  conversion  between  WGS  and 
UTM  values,  with 

0  =  both  WGS  or  UTM  (no  conversion). 

1  =  convert  from  UTM  to  WGS. 

-1  =  convert  from  WGS  to  UTM. 
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VPRM  Common  Area 


The  VPRM  common  area  contains  information  needed  by  the  Versatec 
plotting  programs  in  "VPL2.SV". 

COMMON/VPRM/XSCAL , YSCAL , SCAL , I T YPE , SCMI N .STRIP, STR I PO , XM I N , XMAX ,  YM I N , YMAX 

dhere:  The  variables  in  the  VPRM  Common  Area  define  Versatec 

plotting  scales,  window  limits,  and  stripping  factors. 

These  variables  are  computed  by  subroutine  VPRMS.  They 
are  written  to  block  0  of  the  disk  file  NV2SFL"  by 
subroutine  V2SWP  for  later  use  by  the  Versatec  plotting 
programs. 
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XEXN  Common  Area 


The  XEXN  common  area  contains  the  mininum  possible  values  for  a 
northing  and  easting  for  the  current  run.  These  values  are  used  when 
data  is  being  input  in  the  mil  grid  system  (INPUT  =  2). 

COMMON/XEXN/XE ,XN 


Where: 


Is  the  smallest  possible  UTM  easting  value  for  the  lower 
left  mi  1  grid. 

Is  the  smallest  possible  UTM  northing  value  for  the  lower 
left  mi  1  grid. 


XE  and  XN  are  input  by  the  user  in  subroutine  MGSET . 
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ZONEZ  Common  Area 


The  ZONEZ  common  area  contains  information  which  defines  the 
military  grid  system  which  will  be  used  for  input  data  if  the  user  has 
specified  that  data  wi 1 1  be  in  mil  grid  units. 

C0MM0N/Z0NEZ/X(33) ,Y(33) ,MGCOL,MGROW 

Where: 

X  Gives  the  easting  value  for  the  left  (western)  boundary 

of  each  column  of  the  grid.  X  increases  from  the  value 
entered  by  the  user  for  the  smallest  possible  UTM  easting 
value  in  increments  of  100,000. 

Y  Gives  the  northing  value  for  the  bottom  (southern) 

boundary  of  each  row  of  the  grid.  Y  increases  from  the 
value  entered  by  the  user  for  the  smallest  possible  UTM 
northing  value  in  increments  of  100,000. 

MGC0L  Is  the  number  of  mil  grid  columns.  MGC0L  is  an  integer 
between  1  and  33. 

MGR0W  Is  the  number  of  mil  grid  rows.  MGR0W  is  an  integer 
between  1  and  33. 


MGC01  and  MGR0W  are  input  by  the  user  in  subroutine 
MGSET.  This  subroutine  also  computes  X  and  Y. 


I  VC.  LIST  OF  INITIAL  VALUES 
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HA  ME  OF 


NAME  OF 

VAR  i  ABIE 

INITIALIZED 

COMMON 

BLOCK 

NAME 

VALUE 

PROGRAMS  CONTAINING  DATA  STATEMENT 

INUSER 

1 

CHAIN, LMAIN.RMAIN, (W)PLTRN 

XORIG 

0.0 

n  n  *»  ii  m 

TEKOPT 

YORIG 

0.0 

N  M  II  II  II 

XLEN 

16.0 

M  M  tl  M  U 

YLEN 

12.0 

M  l«  II  II  II 

PNTS 

— 

0 

CMAIN.LMAIN.PMAIN.RMAIN.TMAIN, (J)PTMN 

0 

DBF  I L 

1DB 

0 

CMA I N , LMA I N , PMA I N , RMA I N , TMA I N 

IRQ 

11 

CHAIN, LAMIN.PMAIN.RMAIN.TMAIN.MAINFT, 

10 

OOP ARM, (W)PLTRN 

IWRT 

10 

ll  ••  ii  ii 

BFCM 

IBFCM 

132*0 

LMAIN.RMAIN, (W)PLTRN 

1FFIG 

IFF  LG 

1 

MAINFT 

PC  NT 

NCR 

0 

(J)PTMN 

NOB 

0 

(J)PTMN 

CORE 

MXCORE 

r  jo 

(J)PTMN 
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PBUF 

HBLK 

MWKD 

HURD 

1 

0 

256 

(J)PRFWRT,(J)PRFRD,PRFRD 

N  MM 

■  MM 

PARAM 

ISPHER 

1 

(J)TITLE 

RNORTH 

1.E7 

•• 

REAST 

1.E6 

•l 
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IV.  DISK  ORGANIZATION  OF  FEED 


257 


There  are  three  disk  packs  available  for  use  by  the  FEED  system.  They 
are  labeled  as  follows: 

L)  OPERATIONAL 

2)  AUX ILL  I  ARY 

3)  ARCHIVE/DEVELOPMENT 

The  OPERATIONAL  disk  contains  tne  current  executable  versions  of  all 
the  FEED  programs,  the  data  base  files,  and  all  otr.er  files  necessary  for 
plotting.  All  operational  analysis  and  scene  _,eneration  should  be  done  on 
this  disk.  All  programs  operate  in  the  primary  partition  (i.e.  DS0)  on  this 
di  sk. 

The  AUXILLIARY  disk  also  contains  copies  of  the  executable  FEED 
programs  on  DS^.  If  it  is  decided  to  load  data  bases  on  this  disx  in  the 
future,  it  may  be  used  in  the  same  way  as  the  OPERATIONAL  disk. 

The  AUXILLIARY  disk  also  contains  a  subdirectory  named  FEED83BK,  which 
is  a  backup  copy  of  the  FEED83  development  directory  described  below.  See 
Section  VI.  Backup  Procedures  for  more  information. 

The  ARCHIVE/DEVELOPMENT  disk  is  of  primary  importance  to  programmers. 

On  this  disk  are  stored  all  the  tools  needed  for  software  development.  The 
primary  partition  ( D S 0 )  of  the  disk  contains  the  ARCHIVE  of  old  FEED 
software.  All  the  duplicate  versions  of  the  source  code,  old  load  maps, 
relocatable  files  and  libraries,  and  old  FEED  executaoles  can  be  found  here. 
They  can  serve  as  a  resource  for  programmers  to  refer  to  in  resolving 
questions  about  previous  software  development. 


The  DEVELOPMENT  portion  of  the  disk  is  found  in  a  subdirectory  named 
FEED83.  This  directory  contains  the  current  working  versions  of  all  FEED 
software.  Set  up  here  are  all  the  links  to  utilities  located  on  the  primary 
partition  which  are  needed  for  FEED  software  development.  Also, the 
programmer  will  find  load  macros  for  each  of  the  FEED  executable  programs. 
These  files  define  precisely  the  versions  of  the  source  code  which  are 
loaded  into  each  executable.  The  files  are  named  LO — . MC ;  i.e. 

L0CL0A0 . MC , LOWTHREED . MC ,  etc. 

All  future  software  development  should  be  done  in  the  FEED83  directory. 
When  new  versions  of  executable  programs  are  developed  and  tested,  the 
programmers  must  remember  to  transfer  copies  of  the  .S V  and  .01  files  to  the 
OPERATIONAL  and  AUXILLIARY  disks. 


VI.  PROCEDURE  FOR  SYSTEM  BACKUP 


The  importance  of  system  backup  cannot  be  overstated.  The  source  code, 
relocatables,  executables,  and  data  should  be  backed  up  to  insure  that,  in 
the  event  of  hardware  failures,  the  software  can  be  rebuilt  as  quickly  as 
possible. 

Procedures  for  system  backup  are  simple,  but  it  takes  discipline  on  the 
part  of  system  users  to  see  that  the  procedures  are  periodically  performed. 

The  software  in  directory  FEED83  should  be  backed  up  to  tape  whenever 
software  development  takes  place  using  the  following  commands: 

DIR  FEED83 
INIT  MT0 
DUMP/A/N  MT0:0 

This  RDOS  DUMP  file  on  tape  should  then  be  loaded  into  the  FEED83BK 
directory  on  the  AUXILLIARY  disk.  After  changing  disks  and  rebooting,  the 
following  commands  should  be  entered: 

DIR  FEED83BK 
INIT  MTtf 

LOAD/A/V/R  MT0f:0f 

The  /R  command  instructs  the  LOAD  process  to  replace  only  those  files 
with  a  later  date,  i.e.  the  files  in  which  work  has  been  performed. 

Maintaining  both  tape  and  disk  backup  files  provides  protection  against 
losing  one  or  the  other  due  to  hardware  failure. 

Tape  backup  files  containing  only  the  FEED  executables  (-.SV  and  -.OL) 
and  the  FEED  utilities  (FORT.SV.RLDR.SV,  etc)  should  also  be  maintained. 


Data  base  files,  which  are  normally  quite  large,  should  be  backed  up 
individually  to  tape.  For  example:  DUMP/A/V  MT 0:0  BQ30.DB. 

If  it  is  desired  to  back  up  import  ant  generated  plot  files  from  the 
OPERATIONAL  disk,  the  following  command  could  be  used: 

DUMP/A/V  MT0:0-.PL-.PM 


